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PREFACE 



O 



This manual defines the Data Description Language (DDL) 
for the Query Update sub-schema using CYBER Record 
Manager (CRM). DDL is a component of DMS-170, a data 
management system developed by Control Data 
Corporation. 

As described in this publication, DDL Version 3.2 operates 
under control of the following operating systems: 

• NOS 1 for the CONTROL DATA® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems 

• NOS/BE 1 for the CDC® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems 

This manual is designed for use by the data administrator 
or the staff member responsible for describing Query 
Update sub-schemas that are used by Query Update 
programs accessing the data base through CRM. It is 
assumed that the user is an experienced programmer and 
has used Control Data computers and software products. It 
is also assumed that the user is familiar with the Query 
Update language. 



CDC offers guidelines for the use of the software 
described in this manual. These guidelines appear in 
appendix I. Before using the software described in this 
manual, the reader is strongly urged to review the content 
of this appendix. The guidelines recommend use of this 
software in a manner that reduces the effort required to 
migrate application programs to future hardware or 
software systems. 

Material related to the use of this product is contained in 
the publications listed below; the publications are listed 
within groupings that indicate relative importance to 
readers of this manual. 

The NOS manual abstracts and the NOS/BE manual 
abstracts are instant-sized manuals containing brief 
descriptions of the contents and intended audience of all 
NOS and NOS product set manuals, and NOS/BE and 
NOS/BE product set manuals, respectively. The abstracts 
manuals can be useful in determining which manuals are of 
greatest interest to a particular reader. The Software 
Publications Release History serves as a guide in 
determining which revision level of software 
documentation corresponds to the Programming Systems 
Report (PSR) level of installed site software. 



The following publications are of primary interest: 

Publication 

CYBER Record Manager Advanced Access Methods 
Version 2 Reference Manual 

CYBER Record Manager Basic Access Methods 
Version 1.5 Reference Manual 

Data Base Utiities Version 1 Reference Manual 

Query Update Version 3 Programmer User's Guide 

Query Update Version 3 Reference Manual 



Publication 
Number 



60499300 

60495700 
60498800 
60499000 
60498300 



The following publications are of secondary interest: 
Publication 

NOS Version 1 Manual Abstracts 
NOS Version 1 Reference Manual Volume 1 of 2 
NOS/BE Version 1 Manual Abstracts 
NOS/BE Version 1 Reference Manual 
Software Publications Release History 



Publication 
Number 

84000420 

60435400 

84000470 

60493800 

60481000 



o 
o 



CDC manuals can be ordered from Control Data Corporation, Literature and 
Distribution Services, 308 North Dale Street, St. Paul, Minnesota 55103. 

This product is intended for use only as described in 
this document. Control Data cannot be responsible for 
the proper functioning of undescribed features or 
parameters. 
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NOTATIONS 



G 






Each DDL entry is described in terms of a reference 
format. When more than one specific arrangement is 
permitted, the format is separated into numbered formats. 



NOTATION USED IN 
REFERENCE FORMATS 



II Vertical bars 



UPPERCASE 



UNDERLINED 
UPPERCASE 



lowercase 



o 



L J Brackets 



{} 



Braces 



words are reserved words and must 
appear exactly as shown. Reserved 
words can be used in source 
statements only as specified in the 
reference formats. 

words are required when the 
format in which they appear is 
used. 

words are generic terms that 
represent the words or symbols 
supplied by the user. When generic 
terms are repeated in a format, a 
number is appended to the term for 
identification. 

enclose optional portions of a 
reference format. All of the 
format within the brackets can be 
omitted or included at the user's 
option. 

enclose two or more vertically 
stacked items in a reference 
format when one and only one of 
the enclosed items must be used. 



Ellipses 



enclose two or more vertically 
stacked items in a reference 
format when at least one of the 
enclosed items must be used. Each 
of the vertically stacked items can 
be used once. 

immediately follow a pair of 
brackets or braces to indicate that 
the enclosed material can be 
repeated at the user's option; also 
follow data-name, expression, or 
file-name to indicate that the 
user-supplied element can be 
repeated. 



Punctuation symbols shown within the formats are required 
unless enclosed in brackets and specifically noted as 
optional. In general, commas and semicolons are optional. 
Periods are required to terminate division titles. 



NOTATION USED IN EXAMPLES 

T indicates the position of an assumed decimal point in an 
item. 

A plus or minus sign above a numeric character indicates 
an operational sign is stored in combination with the 
numeric character. 

Character positions in storage are shown by boxes. 



A 


B 


C 


D 



A indicates a space (blank). 
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The DMS-170 software package functions as the data 
management system for Control Data computer systems. 
Through this data management system, a data base can be 
defined, maintained, and controlled in an environment 
totally independent of the applications that are accessing 
it. In this way, conventional files otherwise owned and 
processed by a number of distinct applications can be 
described through the data description language facilities 
of DMS-170. Consequently, the responsibility for tasks 
such as data description, data conversion, and validity 
checking is transferred from the application programmer 
to the data administrator. 

The DMS-170 data management system is composed of the 
following elements: 

• Data Description Language (DDL), which creates the 
schema definition, as well as the COBOL and Query 
Update sub-schema definitions 

• CONTROL DATA CYBER Database Control System 
(CDCS), which controls, monitors, and interprets all 
data base requests from COBOL and FORTRAN 
application programs 

• CONTROL DATA CYBER Record Manager (CRM), 
which handles all input/output processing requests on a 
data base from an application program 

• FORTRAN Data Base Facility, which is composed of a 
FORTRAN sub-schema definition language and a Data 
Manipulation Language (DML) 

Query Update functions within DMS-170 whenever a Query 
Update sub-schema is present. Query Update, using 
sub-schemas defined by DDL, can access the data base in 
either CDCS data base access mode or CRM data base 
access mode. The relationship between Query Update and 
the DMS-170 elements involved in processing the data base 
after it has been defined by DDL is shown in figure 1-1. 



DATA BASE DEFINITION 

The responsibility for the definition of a data base lies with 
the data administrator. The data administrator is a person 
or group of persons who have the task of developing and 
defining the data base as well as monitoring and controlling 
the day-to-day processing of that data base. 

To define a data base, the data administrator uses DDL. 
Through this language, the schema and sub-schemas can be 
created. The data descriptions in the schema and in the 
sub-schemas follow specific structuring conventions, 
include unique clauses and statements, and conform to an 
individual set of rules. 



SCHEMA DEFINITION 

The schema is a detailed description in English-like syntax 
of the data in a data base. An installation can have many 
data bases, but only one schema is allowed for each data 
base. The schema description is generated by DDL 
statements that name the schema, organize the schema 
into files, describe each record type together with the 
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characteristics of the data comprising the record, and 
describe relationships among files. The DDL source 
statements describing the data are used as input to the 
DDL compiler and are compiled into an object schema, or 
schema directory. The data administrator then uses the 
schema description to create any number of sub-schemas. 



SUB-SCHEMA DEFINITIONS 

A sub-schema is a detailed description of selected portions 
of a data base to be used" by application programs. 
Although only one schema definition is allowed for each 
data base, any number of sub-schemas can be defined to 
meet the needs of different types of applications. 

Using DDL, the data administrator defines sub-schemas for 
use by application programs written in the Query Update 
language. A Query Update sub-schema describes the 
portion of a data base that can be accessed by a Query 
Update user in either CDCS data base access mode or CRM 
data base access mode. 



CDCS Data Base Access Mode 

The data descriptions in Query Update sub-schemas in 
CDCS data base access mode are written to correspond to 
data descriptions in the schema. Certain differences are 
allowed to exist; these differences are resolved by DDL 
and CDCS. 

The schema must be compiled before the sub-schema is 
compiled. The DDL source statements describing the 
sub-schema are compiled into an object sub-schema, or 
sub-schema directory. The names and descriptions of data 
to be referenced in a Query Update program are obtained 
from a listing of the sub-schema. 



CRM Data Base Access Mode 

The data descriptions in Query Update sub-schemas in 
CRM data base access mode are not based on a schema 
definition. Schema-defined files can be accessed, however, 
providing the DDL source statements that define the 
sub-schema describe the data exactly as it is described in 
the schema. Appendix H contains a summary of data 
definition in DMS-170 to aid in accessing schema-defined 
files. For each sub-schema, the DDL source statements 
used as input to the DDL compiler name the sub-schema, 
specify needed files, define the content and structure of 
records, identify relations among files to be used, and 
specify record qualification for relation processing. 

After the DDL source statements describing the 
sub-schema have been written, they are compiled into an 
object sub-schema, or sub-schema directory. The names 
and descriptions of data to be referenced in a Query 
Update program are obtained from a listing of the 
sub-schema. 

The remainder of this manual describes Query Update 
sub-schemas in CRM data base access mode only. See 
volume 2 of the DDL 3 reference manual for information 
on Query Update sub-schemas in CDCS data base access 
mode. 
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Figure 1-1. Data Base Processing With DMS-170 
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DATA BASE PROCESSING 



CONCURRENCY 






Once a data base has been defined by the data 
administrator, it can be accessed by users of the Query 
Update language. Query Update directives can be used to 
perform read, write, update, and delete operations on data 
base files. Query Update can be used to access the data 
base in either batch or interactive mode. Query Update 
processing of the data base is shown in figure 1-2. 

When Query Update accesses data base files in CRM data 
base access mode, input/output processing requests on data 
base files are handled by Advanced Access Methods (AAM) 
for direct access, indexed sequential, and actual key files 
and by Basic Access Methods (BAM) for sequential files. 
To access schema-defined files, the sub-schema must 
describe the data exactly as it is described in the schema 
(see appendix H). 

Several special features are available for data base 
processing. Concurrency allows two Query Update users to 
access the same data base file at the same time. A 
relation facility enables the user to retrieve data from 
several linked files with a single read request. A data base 
procedure linkage allows special-purpose subprograms 
written by the data administrator to be called when 
specified situations occur during processing. The 
input/output capabilities of CRM handle all data base 
processing requests from Query Update application 
programs. Logging and recovery utilities provide for 
preservation of the integrity of a data base. 



Concurrent file access is allowed for Query Update users. 
Concurrency means that two or more Query Update 
application programs can access the same data base file at 
the same time. Programs can access a file concurrently 
for retrieval or update purposes. Concurrency is possible 
through the use of appropriate control statement 
parameters. Refer to the Query Update reference manual 
for more information. 



RELATIONS 

The relational data base facility of Query Update allows an 
application program to access data from related files with 
a single read request. In the Query Update sub-schema, 
the data administrator links the files together into a 
logical, meaningful relationship, called a relation, by 
specifying a relation entry. The relation entry assigns a 
name to the relation and specifies the data items to be 
used to link the files. The Query Update sub-schema can 
specify qualification criteria for retrieving only certain 
records from the data base files joined in the relation. 

An application program accesses a relation by specifying a 
single read request with the name of the relation that is to 
be read. Query Update processes the request and returns a 
record occurrence from each file in the relation to the 
user's work area for the file. 
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Figure 1-2. Query Update Processing of the Data Base 
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DATA BASE PROCEDURES 

Data base procedures are special subprograms written by 

I the data administrator to perform a variety of 
supplemental operations not otherwise performed by Query 
Update. The procedures are called when specific situations 
occur during processing. The conditions under which data 
I base procedures are to be executed are specified in the 
| Query Update sub-schema. 

Some of the functions that can be performed by data base 
I procedures are: data validation; calculation of values for 
actual or virtual data items; additional processing on 
creation, retrieval, or update of data base records; privacy 
checking; and special handling of detected error 
conditions. The use of data base procedures to perform 
these functions enables an installation to make the most 
efficient use of the DMS-170 system. 



INPUT/OUTPUT PROCESSING 

Processing of input/output statements that reference data 
base files is handled by CRM. All data base files accessed 
by Query Update are conventional CRM files; files are 
identified and described in the sub-schema. 



File Organization 



File organization of data base files accessed by Query 
Update application programs is specified in the 
sub-schema. The file organization information is stored in 
the sub-schema directory. The file organizations allowed 
for data base files that are to be accessed by Query Update 
are extended AAM files (which include extended direct 
access, extended actual key, and extended indexed 
sequential) and sequential BAM files. 

Records in indexed sequential files are stored in ascending 
order by key. The records can be accessed either randomly 
by key or sequentially by position. This file organiation is 
most efficient for very large mass storage files that are to 
be accessed both randomly and sequentially. 

Records for direct access files are stored randomly in fixed 
length blocks. The number of the block to receive a record 
is determined by a calculation performed by the system on 



the record key. Records can be accessed randomly by key; 
records can also be accessed sequentially for read-only 
processing. Direct access file organization is used most 
effectively when rapid random access of large mass 
storage files is required. 

Actual key files contain records whose key values are 
assigned by the system. Records can be accessed randomly 
by actual key; records also can be accessed sequentially. 
Actual key file organization is used most effectively for 
large mass storage files when the user can keep track of 
system-assigned keys and when performance and file 
growth characteristics are of primary concern. 

Records for sequential files are stored in the same physical 
order in which they are generated. Records are accessed 
by the issuing of successive reads. Sequential file 
organization is used most effectively with files that are to 
be read sequentially in the order in which they were 
created and that are to have records added at the end of 
the file. 



Multiple-Index Processing 

Multiple-index processing is performed if alternate keys 
are defined for indexed sequential, actual key, or direct 
access files. An index is created for each alternate key in 
a data file when the file is created. The indexes are 
updated automatically whenever the data file is updated. 
Records can then be retrieved by the primary key or by an 
alternate key. For detailed information refer to the 
Advanced Access Methods reference manual. 



DATA BASE RECOVERY 

The recovery facilities of Query Update supply the means | 
to deal with a lost, partially destroyed, or invalid data 
base. Logging is specified in the sub-schema. Logging I 
before and after images of records, along with transaction I 
logging, is available for Query Update applications. The | 
log files contain information that the data base 
administrator can use for off-line recovery of the data 
base or for statistical analysis. Query Update provides a 
utility that a data base administrator can execute to 
restore or reconstruct a data base. 
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SUB-SCHEMA ORGANIZATION 
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The Query Update sub-schema describes the data that is 
needed by one or more Query Update application programs 

I accessing the data base through CYBER Record Manager 
(CRM). The sub-schema consists of three divisions: 

Identification Division 

Contains one statement that names the sub-schema 
and the optional procedure library. 



Data Division 

Contains area and record description statements. 
The area statements describe area structure and 
include the optional transaction logging and data 
base procedures. The record statements describe 
the structure and content of each record type in 
the area. 



Relation Division 

Contains optional relational statements that 
identify the specific area relationships that are to 
be used when querying more than one area of the 
data base and specifies the qualification criteria 
that determines the projected records that can be 
selected for the Query Update user. 



DATA DESCRIPTION 

The basic unit of data description is the entry. The record 
description entry is the entire description of a data base 
record type. It consists of a record name entry followed by 
a series of data description entries that describe the specific 
data items within the record. Each data description entry 
has a level number and a data name. In addition, the entry 
can have one or more clauses describing the data item. 
Data items are described in terms of size, class, and usage. 

The level number designates the level of the entry relative 
to other entries in the record description. The highest level 
entry is an implied 01 level and is reserved for the record- 
name entry. Other entries, which can be either group or 
elementary data items, are assigned level numbers 02 
through 49 based on the position of the specific data item 
within the hierarchical structure of the record. Level 
numbers need not be consecutive but must be ordered so 
that the higher the number, the lower the entry in the 
hierarchy. 

At least one clause must be included in the data description 
entry for an elementary item. A group item can also have 
one or more clauses. The order of clauses is not important 
except where explicitly stated in the clause description. 
Semicolons or commas can be used to separate clauses. 



DATA ORGANIZATION 

Data is organized into named subdivisions called areas. 
(Throughout this manual the term area is synonymous with 
file.) Each area, in turn, is organized into named 
subdivisions called records. 
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AREAS 

An area description entry begins with the area name and 
includes a series of subordinate entries that describe the 
total structure of the area. A maximum of 64 areas can be 
included in a single sub-schema, and each area can contain 
occurrences of one or more types of records. 

RECORDS 

Data items in the record description statements are 
organized first into records and then into group and 
elementary items. A record description entry begins with 
the record name, which has an implied 01 level number, and 
includes a series of subordinate data description entries with 
level numbers 02 through 49. 

Group Items 

A group item is a collection of related items organized in a 
hierarchical structure. The group name data description 
entry has the lowest level number within the group itself. 
Other items within the group item have successively higher 
level numbers ending with the most elementary item, the 
highest numbered item in the group. All data items in a 
group item can be referenced collectively by the data name 
of the group item. A description must be written for each 
data item in the group, and the group name data description 
entry must have at least a level number and a data name. A 
group item can be part of a larger group (nested group 
items). 

Elementary Items 

An elementary item is an item that cannot be further 
subdivided. If it is part of a group item, the elementary 
item has the highest level number in the group item to which 
it belongs. 



NONREPEATING DATA ITEMS 

A nonrepeating elementary data item is a single data 
description entry. It consists of the level number, the data 
name, a PICTURE clause, and an optional USAGE clause. 

Nonrepeating group items can be specified in the 
sub-schema by designating a series of related data items as 
subordinate entries to a group data item, which allows a 
Query Update program to access several data items with 
one request. A nonrepeating group item consists of three 
or more data description entries. The first entry specifies 
the data name for the entire group data item. The only 
restriction placed on nonrepeating group items is that the 
relative hierarchy of the sub-schema be preserved. A 
nonrepeating group data item is illustrated as follows: 

02 ADDRESS 

03 NUMBERS PIC 9(5) 
03 STREET PIC X(23) 
03 CITY PIC A(20) 
03 ZIP-CODE PIC 9(5) 
03 STATE PIC A(2) 
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REPEATING DATA ITEMS 

Two types of repeating data items can be designated in the 
sub-schema: vectors and repeating groups. A vector is an 
elementary data item that is repeated a number of times in 
each record. A repeating group is a collection of data items 
that is repeated; the entire collection, not individual data 
items, is repeated a number of times in each record. 
Repeating data items are specified by including the 
OCCURS clause in the data description entry. 



Vectors 

A vector is a repeating elementary data item. A vector is 
described with the OCCURS clause and the PICTURE or 
USAGE clause. No data item can be subordinate to a 
vector. A vector is illustrated as follows: 

02 MONTH- TOT PIC 9(4) V99 

OCCURS 12 TIMES 



Repeating Groups 

A repeating group is described with two or more data 
description entries. The first entry consists of the group 
data name and the OCCURS clause. Each additional entry is 
subordinate to the first entry and describes a repeating 
group, a vector, or an elementary data item. The vector or 
elementary data item contains the PICTURE clause. Up to 
three levels of nested groups can be specified. When 
repeating groups and vectors are nested, the vector is 
considered to be a repeating group and is included in the 
level count. A repeating group data item is illustrated as 
follows: 

03 MONTHLY-ORDERS OCCURS 12 TIMES 

05 NUM-ORDERS PICTURE 99 
05 TOTAL-AMT PICTURE 9(6)V99 



Fixed Occurrence Data Items 

A fixed occurrence data item, which can be a group or a 
vector, occurs a fixed number of times. Format 1 of the 
OCCURS clause specification is used to describe a fixed 
occurrence data item (refer to section 4). The integer 
entered in the clause specifies the exact number of 



occurrences for the data item, 
item is illustrated as follows: 



A fixed occurrence data 



03 



MONTHLY-ORDERS PIC 9999V99 
OCCURS 12 TIMES 



Variable Occurrence Data Items 

A variable occurrence data item, which can be a group or a 
vector, occurs a variable number of times. Format 2 of the 
OCCURS clause specification is used to describe a variable 
occurrence data item (refer to section 4). The integers 
entered in the clause specify the minimum and maximum 
number of occurrences for the data item and also specify 
the elementary data item that contains the actual number of 
occurrences for the record. 

The data item that designates the actual number of 
occurrences must be an elementary data item and it must 
precede the data description entry for the variable occur- 
rence data item. The variable occurrence data item must be 
the last item in the record. Only subordinate data 
description entries can follow the entry containing the 
OCCURS clause. 

A variable occurrence data item is illustrated as follows: 

03 NUM-ITEMS PICTURE 99 

03 MONTHLY-ORDERS PIC 9999V99 

OCCURS 1 TO 15 TIMES DEPENDING 

ON NUM- ITEMS 



DATA SIZE AND CLASS 

The size and class of data items in the sub-schema are 
specified by the PICTURE and USAGE clauses. The 
PICTURE clause is used for formatting and specifying the 
class and size characteristics of a data item as the item 
appears in the user working area. The USAGE clause 
specifies whether a data item is used predominantly for 
computation or for display. 

The class of a data item is specified by the character 
designators A (alphabetic), 9 (numeric), and X (alpha- 
numeric) in the picture-specification of the PICTURE 
clause. The size of a data item is specified by the number 
of character position designators (A, 9, and X) in the 
picture-specification of the PICTURE clause. 



o 



o 
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SUB-SCHEMA PROGRAMMING CONVENTIONS 



I The Query Update sub-schema DDL source program 
consists of a series of statements that describe a portion of 
the data base. The rules, conventions, and hierarchical 
structures of DDL are similar to those of COBOL. 



Spaces (blanks) cannot be used in a name. 

A name cannot be spelled exactly the same as a 
reserved word. 



LANGUAGE ELEMENTS 

DDL source statements are composed of clauses that 
contain reserved words, user-defined names, and literals. 
The use of these elements is described in the following 
paragraphs. The specific formats of the clauses are 
defined in section 4. 



LITERALS 

In some formats, the user must supply a literal as part of 
the clause. A literal is a string of characters that 
represents a specific value. Literals are either numeric or 
nonnumeric. 









^^^ 

^^^r 



RESERVED WORDS 

Reserved words are English words and abbreviations that 
have special meanings to the DDL compiler. These words 
can be used only as shown in the format specifications. A 
reserved word must be spelled correctly; it cannot be 
replaced by another word. Over 275 words have been 
defined as reserved words. Appendix D contains a 
complete list of DDL reserved words used in Query Update 
sub-schema definition. 

Two types of reserved words are recognized by the DDL 
compiler: keywords and optional words. A keyword is a 
reserved word that must be used in a specific clause. 
Keywords are essential to convey the meaning of a clause 
to the compiler. An optional word is a reserved word that 
can be included in a clause to improve readabiity. Optional 
words are recognized by the compiler but are not needed to 
compile the object coding. In the format specifications, 
keywords are shown as uppercase words that are 
underlined; optional words are shown as uppercase words 
that are not underlined. 



USER-DEFINED NAMES 

Many of the format specifications include names that are 
to be supplied by the user. User-defined names identify 
the sub-schema, areas, records, data items, and procedure 
names. The type of name to be supplied is indicated in the 
format specification by a lowercase word. 

User-defined names are created when the sub-schema is 
written. The formation of these names is governed by the 
following rules: 

• Sub-schema, area, index file, log file, procedure 
library, record, relation, and data names can each 
contain up to 30 characters; the first character must 
be alphabetic. 

• Procedure names can contain up to 7 characters; the 
first character must be alphabetic. 

• Letters (A-Z), digits (0-9), and the hyphen (-) can be 
used in a name. 

• The hyphen can be used only in record, relation, and 
data names. 

• The hyphen cannot be used to begin or end a name; 
adjacent hyphens are not allowed. 
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Numeric Literals 

An integer can contain the digits through 9 and a leading 
plus or minus sign. If a sign is not included, the integer is 
treated as positive. 



Examples: 



+403 



-07 



A fixed-point (real) value can be formed by inserting a 
decimal point into a valid integer literal. The literal must 
not begin or end with the decimal point. 



Examples: 



+2.4 



0.06 



-72.0 



A real value in scientific notation is formed from a 
fixed-point literal followed by the character E followed by 
an integer. The trailing integer has the significance of the 
power of 10 by which the fixed-point literal is multiplied. 



Examples: 



+14.0E-2 7.6E0 



-0.56E4 



The maximum size for an integer or fixed-point literal is 
30 digits; however, only 14 digits can be significant. Up to 
12 leading or trailing zeros can be specified for decimal 
alignment. 

A complex value can be formed by bracketing the 
character I by valid real literals in scientific notation. 



Examples: 



43.0E1I7.6E1 
-25.7E-1I-6.0E2 



0.0E1I-46.3E1 
0.007E-4I+0.0E1 



Nonnumeric Literals 



A nonnumeric literal is a string of up to 255 characters. 
The string must be enclosed in quotation marks. Any 
character in the DDL character set, including the space, | 
can be used in a nonnumeric literal. If a quotation mark is 
to be included in the literal, the quotation mark must be 
specified twice for each occurrence. For example, "A" "B" 
would yield the literal A"B. 



DATA REFERENCE 

Each user-defined name in the sub-schema must be capable 
of being uniquely referenced. Unless the name itself is 
unique because no other name has the identical spelling, a 
method for obtaining unique identification is necessary. 
Unique reference is recognized by DDL through the 
qualification, subscripting, and identifier concepts. 
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Qualification 



Qualification is permitted in any clause that references a 
data name. When a name exists within a hierarchy of one 
or more names, the higher level names can be used to make 
the name unique. The data name is written followed by the 
word OF or IN and the qualifier. The choice between OF 
or IN is based on readability; the two words are logically 
equivalent. Qualification must be made to the level 
necessary to make the name unique; however, qualification 
can be used even when the name does not need to be 
qualified. 



Subscripting 

Subscripting within the DDL syntax is permitted only in the 
JOIN and RESTRICT clauses. Subscripts are used to 
indicate which occurrence of a repeating group or 
elementary item is to be referenced. The data name is 
written followed by a positive integer constant or the 
keyword ANY enclosed within parentheses. Specific rules 
regarding the use of subscripts are detailed in the following 
paragraphs. 



Identifier 

The term identifier is used to indicate a data name that is 
referenced uniquely through a combination of subscripts 
and qualifiers. When the term identifier appears in JOIN 
and RESTRICT clauses, it assumes the format shown in 
figure 3-1. 



data-name- 1 T jsubscript-12 "J 
I I INI data_name " 2 (lsubscript-2^1 I . . . 



Figure 3-1. Identifier Format 



A maximum of five data-name-2 qualifiers can be 
specified. They must be listed in the order of innermost to 
outermost level of nesting of the group; hence the leftmost 
qualifier (data-name-2) is the item with the highest level 
number. 

Only one subscript can appear on each data-name that 
denotes an item defined with an OCCURS clause; only 
items specified with an OCCURS clause can have a 
subscript. When describing an identifier that is subordinate 
to a repeating group, the repeating group name must 
appear as a qualifier. 



| DDL CHARACTER SET 

The set of characters recognized by the DDL compiler can 
be combined according to the specified rules to form 
| names and values in the source program. The DDL 
character set consists of the letters A through Z, the 
numbers through 9, and the following special characters: 





Blank or Space 


+ 


Plus Sign 


- 


Minus Sign or Hyphen 


J 


Comma 


9 


Semicolon 


* 


Asterisk 


• 


Period or Decimal Point 


It 


Quotation Mark 


( 


Left Parenthesis 


) 


Right Parenthesis 


$ 


Dollar Sign 


/ 


Slash 



PUNCTUATION 

Most punctuation marks in a DDL source program are | 
optional. When punctuation marks are used, the rules are 
precise and must be followed exactly. The rules for using 
punctuation marks are as follows: 

• A period is required to terminate the Identification, 
Data, and Relation Division title lines. 

• A period, comma, or semicolon must immediately 
follow a word and it must be followed by at least one 
space. If the punctuation mark is in the last column of 
the statement area (column 72), a blank is assumed to 
exist immediately following column 72 and prior to 
column 73 of the program identification area. 

• At least one space, or a comma and a space, must 
separate successive words in a statement. 

• Commas and semicolons can be used to separate 
clauses in a statement. 



DDL CODING 1 

DDL source programs can be written on standard | 
80-column coding sheets. Columns 8 through 72 are used 
to write DDL statements. | 



DDL STATEMENTS 

The DDL source program that defines a Query Update 
sub-schema consists of three divisions: Identification, 
Data, and Relation Division. The division name begins in 
columns 8 through 11 and is followed by a space, the word 
DIVISION, and a period. The remainder of the line must be 
left blank. All other statements can begin in columns 8 
through 72. 



SEQUENCE NUMBERS 

A sequence number consisting only of digits can be entered 
in columns 1 through 6. The sequence number is optional 
and has no effect on the source program. 



O 

o 



\-J 



\ _J 



W 



J 
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CONTINUATION LINES COMMENT LINES 

Words or literals can be continued from one line to the next Comments can be printed on the source listing. A 

line. When a continuation line is written on the coding comment line is written on the coding sheet by entering an 

sheet, a hyphen must be entered in column 7. The asterisk in column 7. The comment begins in columns 8 

continuation must begin in column 12. through 72. 
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DDL STATEMENTS 



4| 



| DDL statements consist of the reserved words of the DDL 
language in combination with user-supplied elements. The 
source statements are used as input to the DDL compiler 
for the purpose of generating a Query Update sub-schema. 



I 



The source program for a Query Update sub-schema 
contains three divisions: Identification Division, Data 
Division, and Relation Division. This section of the manual 
defines the format specifications for each clause that can 
be used in the source program. 



IDENTIFICATION DIVISION 

The Identification Division must be the first division in the 
| DDL source program. This division identifies the 
sub-schema being described and names the optional 
procedure library. The format of the Identification 
Division is as follows: 

IDENTFICATION DIVISION. 



PROCEDURE LIBRARY IS library-name 



I permanent-file-parameters J 



Figure 4-3. PROCEDURE LIBRARY Clause Format 



values of M can be R, READ, W, WRITE, M, MODIFY, RM, 
or READMD. Refer to the appropriate operating system 
reference manual for explanations of permanent file 
parameters. When parameters are specified, keywords and 
their values must appear in the following format: 



{identification description entry } 



keyword IS value 



When the PROCEDURE LIBRARY clause is present, Query 
Update attaches the specified permanent file, loads the 
procedures, and returns the permanent file. Data base 
procedure processing is detailed in appendix F. 



o 






o 



The identification description entry is a statement 
containing one required clause that names the sub-schema 
and one optional clause that names the library in which 
data base procedures reside. The format of the 
identification description entry is shown in figure 4-1. 



DATA DIVISION 



SUB-SCHEMA NAME clause 

[PROCEDURE LIBRARY clause] 



Figure 4-1. Identification Description Entry Format 

The format of the SUB-SCHEMA NAME clause is shown in 
figure 4-2. This clause specifies the name of the 
sub-schema being created. The sub-schema-name entered 
in this clause is the name used whenever the sub-schema is 
referenced after it has been compiled and stored in the 
sub-schema library. The name must be unique among 
Query Update sub-schemas in the library. 



SUB-SCHEMA NAME IS sub-schema-name 



Figure 4-2. SUB-SCHEMA NAME Clause Format 

The format of the PROCEDURE LIBRARY clause is shown 
in figure 4-3. This clause specifies the name of a 
permanent file user library in which all referenced data 
base procedures are stored. The library-name must be 
unique among all file names and must conform to operating 
system logical file naming conventions. Permanent file 
parameters are optional. NOS/BE keywords include ID, PW, 
CY, and SN. NOS keywords include UN, PW, M, and PN; 
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The Data Division must be the second division in the DDL | 
source program. It identifies and describes areas as well as 
the records that are contained within the areas. The 
format of the Data Division is as follows: 



DATA DIVISION , 
{area description entry} 
{record description entry} . . . 

{area description entry} 
{record description entry } . . . 

AREA DESCRIPTION ENTRY 

An area description entry precedes its associated record 
description entries in the Data Division. The area 
description is a statement consisting of one or more 
clauses that identify and describe the file. An entry can be 
qualified, restricted, or overridden by a subsequent record 
description entry. The format of the area description 
entry is shown in figure 4-4. 

AREA-NAME Clause 

The AREA-NAME clause is a required clause that 
identifies the area. The format of the AREA-NAME clause 
is shown in figure 4-5. 



4-1 



AREA-NAME Clause 

[ BLOCK CONTAINS Clause] 
[ BLOCK-TYPE Clause] 
[RECORD CONTAINS Clause] 
fRECORD-TYPE Clause] 
[LOG Clause] 
[ORGANIZATION Clause] 
[FILE-LIMIT Clause] 
[SEQUENCE Clause] 
[INDEX-LEVEL Clause] 
[INDEX-BLOCK Clause] 
[iNDEX-PAODING Clause] 
[DATA-PADDING Clause] 
[NUMBER OF BLOCKS Clause] 
[ON CALL Clause] 



Figure 4-4. Formats of Area Description Entries 

I The area-name is user-assigned and must conform to DDL 
and operating system file naming conventions. The first 
seven characters of the name are used as the logical file 
name and must be unique within the sub-schema. 
Permanent file parameters are optional. NOS/BE keywords 
include ID, PW, CY, and SN. NOS keywords include UN, 

IPW, M, and PN; values of M can be R, READ, W, WRITE, M, 
MODIFY, RM, or READMD. Refer to the appropriate 
operating system reference manual for explanations of 
permanent file parameters. When parameters are 
specified, keywords and their values must appear in the 
following format: 

keyword IS value 

When the TEMPORARY option is selected for 
AREA-NAME, both the area file and index file are local 
files for temporary use by one program. An area defined 
as temporary is similar to a scratch file. Items in the 
temporary area are not saved after the area is closed. 
Attach and return operations are not performed for a 
temporary area during a Query Update session. 

The INDEX option names the associated index file for the 
area when the area contains alternate keys. Index file 
names must be unique and must conform to operating 
system file naming conventions. If this option is not 
included in the sub-schema, it becomes the responsibility 

I of the Query Update user to declare the index file in the 
INVOKE (or USE) directive at Query Update execution 
time. 



Area and index file permanent file parameters are 
optional. They can be declared or overridden in the 
INVOKE (or USE) directive at Query Update execution 
time. 



BLOCK CONTAINS Clause 

The BLOCK CONTAINS clause describes the block size and 
CYBER Record Manager (CRM) block type. The format of 
the BLOCK CONTAINS clause is shown in figure 4-6. 



BLOCK CONTAINS [integer-1 To] 
RECORDS \ 



integer-2 



; CHARACTERS 



Figure 4-6. BLOCK CONTAINS Clause Format 



The entry integer-1 does not affect block size and can be 
used for documentation purposes. The entry integer-2 is a 
positive number specifying the maximum number of 
records or characters per block. 

The following statements apply to the BLOCK CONTAINS 
clause: 

• If records are specified, CRM assumes K type blocking 
unless overridden by the BLOCK-TYPE clause. The 
K type blocking specification indicates that blocks 
always contain a fixed number of records whether 
records are fixed or variable length. If record lengths 
are variable, the maximum record size is multiplied by 
the number of records to determine the block size. 

• If characters are specified, they are limited to a 
maximum of 327600. CRM assumes E type blocking I 
unless overridden by the BLOCK-TYPE clause. The 

E type blocking specification indicates that blocks 
contain as many records as will fit within a given 
maximum block size. 

• If the clause is omitted, CRM assumes C type blocking 
unless overridden by the BLOCK-TYPE clause. The 
C type blocking specification indicates that blocks 
always contain a fixed number of characters as 
determined by the storage device type. 



BLOCK-TYPE Clause 

The BLOCK-TYPE clause describes the CRM block type 
format and overrides a BLOCK CONTAINS clause. The 
clause can be specified only when organization is 
sequential. The format of the BLOCK-TYPE clause is 
shown in figure 4-7. 



AREA-NAME IS area-name 



[ 



TEMPORARY 
permanent-f i Ic parameters 



] 



I INDEX IS index-file-name [permanent-file-parameters ] I 



Figure 4-5. AREA-NAME Clause Format 
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BLOCK-TYPE IS 



( internal ] 

) character-count ( 

record-count ( 

exact-records i 



Figure 4-7. BLOCK-TYPE Clause Format 

One of four block types recognized by CRM can be 
specified. Each type is defined as follows: 



INTERNAL 



Blocks are 5120 characters in 
length and contain binary 
records only. 



CHARACTER-COUNT Blocks always contain a fixed 
number of characters. 



RECORD-COUNT 



EXACT -RECORDS 



Blocks always contain a fixed 
number of records whether 
records are fixed or variable 
length. 

Blocks contain as many 
records as will fit within a 
given maximum block size. 



If both BLOCK CONTAINS and BLOCK-TYPE clauses are 
omitted, CHARACTER-COUNT is assumed. 



RECORD CONTAINS Clause 

The RECORD CONTAINS clause establishes record size 
and CRM record type. The format of the RECORD 
CONTAINS clause is shown in figure 4-8. 



RECORD CONTAINS [integer-1 JO] integer-2 
CHARACTERS [DEPENDING ON data-name] 



Figure 4-8. RECORD CONTAINS Clause Format 



If records are fixed length, integer-1 is omitted and 
integer-2 must be a positive number specifying the number 
of characters in the record. The maximum size of 
| integer-2 is 262142. 

If records are variable length, integer-1 must be a positive 
number specif ying the number of characters in the smallest 
record. Integer-1 should be large enough to include all the 
keys. If it is incorrect or omitted, DDL computes the 
correct value. Integer-2 specifies the number of 
I characters in the largest record and cannot exceed 131071. 

The following restrictions apply to the DEPENDING ON 
option: 

• The option can be used only if CHARACTER-COUNT 
is specified in the RECORD-TYPE clause. 

• The specified data-name, which determines record 
size, must be in the same location in every record of 
the file. The data-name entry must be elementary, 
must not exceed six characters, and must be included 
in a record description for the area. 
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If the clause is omitted, record size and type are 
determined as follows: 

• Record size is determined by the RECORD-NAME 
clause as described under Record Description Entry. 

• Record type is fixed length unless specified otherwise 
by the RECORD-TYPE clause. 



RECORD-TYPE Clause 

The RECORD-TYPE clause describes the CRM record type 
format and overrides a RECORD CONTAINS clause. The 
format of the RECORD-TYPE clause is shown in figure 4-9. 



I CONTROL-WOR D 
FIXED-LENGTH 
CHARACTER-COUNT i 
TRAILER-COUNT 
R ECORD-MARK 
UNDEFINED 
ZERO-BYTE 



Figure 4-9. RECORD- TYPE Clause Format 

One of seven record types recognized by CRM can be 
specified. Table 4-1 lists and describes each record type 
entry and indicates applicable rules and constraints. 



LOG Clause 

The LOG clause specifies the type of information that is to 
be recorded for information recovery and statistical 
analysis. Information consists of activity that occurs in 
response to Query Update directives following an INVOKE | 
(or USE) directive for the area. The information is 
recorded in a log file. The format of the LOG clause is 
shown in figure 4-10. 

A record image can be recorded as it appeared before or 
after a transaction. A transaction is defined as the 
activity that was imposed upon a record by a Query Update 
directive. The transaction itself can be recorded and 
consists of the text of the Query Update transmission. 
Transaction logging is restricted to transmissions that 
update or have the potential to update an area. 
Conditional transactions are logged whether or not the 
condition is satisfied. No logging is performed for 
query-only transactions. 

If RECORD is not specified, the transaction is recorded. If 
only the words LOG, RECORD, and ASSIGN are specified, 
the before image of the record is recorded. 

The log file must have been previously established as a 
permanent file. Query Update attaches the permanent log 
file as needed. The ASSIGN clause must specify the same 
information that is normally required for the attaching of a 
permanent file. The NOS operating system requires the 
M parameter with a permission mode of write or modify. 
Appropriate operating system documentation should be 
consulted for an explanation of the area-name qualifiers ID 
and UN and the permanent file parameters shown in the 
format. 

Logging is performed by Query Update through the data 
base utility logging routines. Log file information is 
included in appendix G. 
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Option 



CONTROL-WORD 
FIXED-LENGTH 
CHARACTER-COUNT 

TRAILER-COUNT 



CYBER Record 
Manager Type 



W 
F 
D 



RECORD-MARK 

UNDEFINED 

ZERO-BYTE 



TABLE 4-1. RECORD TYPE DESCRIPTIONS 



Description 



Binary records with a blocking 
factor of 5120 characters. 

Records with fixed length. 



Records containing a user- 
defined count field that gives 
the length of the records in 
characters. 

Records containing a fixed 
header portion followed by a 
variable number of fixed-length 
trailer items. 



Records containing a special 
record delimiter. 

Records that impose no special 
action on the part of CRM. 

Records in which trailing spaces 
are dropped and a zero (or ter- 
minating) byte is included. 



Comments 



Must be specified if BLOCK- 
TYPE is INTERNAL. 

Assumed if RECORD-TYPE clause 
is omitted. 

Must be declared if RECORD 
CONTAINS clause with 
DEPENDING ON option is speci- 
fied. 

Must be declared if both a 
RECORD-TYPE clause and a 
record section entry with 
OCCURS. . .DEPENDING ON are 
specified. 

Assumed if RECORD-TYPE clause 
is omitted and a record sec- 
tion entry with OCCURS. . . 
DEPENDING ON is specified. 



o 
o 
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TRANSACTION I ASSIGN TO permanent-file-name 
I TRANS f 



) ID IS id [fW IS pw . . .] [fJY IS cy] [sj\| IS sn] M (NOS/BE) 
[UN ISun[pwlSpw] MISm [^j IS pn] )J (NOS) 



Figure 4-10. LOG Clause Format 






ORGANIZATION Clause 

The ORGANIZATION clause specifies the file organization 
and associated access method to be used when a data 
record is retrieved or updated. The format of the 
ORGANIZATION clause is shown in figure 4-11. 



An area can be specified as direct access (DIRECT), 
sequential (SEQUENTIAL), indexed sequential (INDEXED), 
or actual key (ACTUAL). One mode must be specified for 
each area named in the data base. If the mode is omitted, 
unsorted sequential is assumed. 
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The OLD or NEW option can be used with indexed 
sequential, direct access, and actual key CRM Advanced 
Access Methods (AAM) files. OLD designates an initial 
AAM file; NEW designates an extended AAM file. For 
example, if the OLD and INDEXED options are selected, 
the file is considered to be an initial indexed sequential 
file; if the NEW and INDEXED options are selected, the file 
is considered to be an extended indexed sequential file. If 
neither OLD nor NEW is specified, OLD is assumed. All the 
rules that apply to initial AAM files apply to extended 
AAM files with the exception of computing key length in 
actual key files. See the Primary Key Option subsection 
for more information. 
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ORGANIZATION IS 



DIRECT 
ACTUAL 
INDEXED 
SEQUENTIAL 



I/OLE ll 

[INEW/J 



[procedure-name] 



SORTED 



/ ASCENDING 
(DESCENDING 



»] 



KEY IS data-name 



DUPLICATES ARE 




ALLOWED 



KEY IS ALTERNATE data-name 



DUPLICATES ARE 



[ INDEXED) 
FIRST [ 

[not ' 



ALLOWED 



Figure 4-11. ORGANIZATION Clause Format 






o 



o 
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Direct access files are normally handled by AAM. A 
substitute hashing technique can be used by including the 
hashing routine name (procedure-name) option. This 
routine is loaded at the same time, from the same library, 
and according to the same sequence as data base 
procedures, described in appendix F. Query Update 
supplies the address of the hash routine to AAM. Refer to 
the CYBER Record Manager Advanced Access Methods 
reference manual for detailed specifications of hashing 
routine input and output. 

The SORTED ASCENDING or DESCENDING option can be 
used only with sorted sequential files. A file can be 
sequenced in ascending order (low-to-high, A through Z) or 
descending order (high-to-low, Z through A). If the sort 
option is omitted, ascending sequence is assumed. 

A key field cannot be an occurring field because it must be 
in the same position in every record. A key that is a group 
item cannot contain items of different usages. For indexed 
sequential files where the key is not part of the record, the 
name of the key is defined as the only field of the last 
record description for the area; the name of the record 
must be the word KEY-FIELD. 



Primary Key Option 

When file organization is DIRECT, SEQUENTIAL SORTED, 
INDEXED, or ACTUAL, the primary key must be specified 
within a record description. The primary key is declared 
by the KEY IS data-name option. 

The primary key (data-name) is a sort control field that 
must be defined as one of the entries in an associated 
record description. When file organization is ACTUAL, the 
primary key must be specified in the record description 
with a USAGE IS INTEGER clause and can have a picture 
specification. Also, when the file organization is 
ACTUAL, the key length (KL) is computed in bits when 
OLD is specified or in characters when NEW is specified. If 
no PICTURE clause is specified, the default value for the 
key length is 48 (bits for OLD) or 8 (characters for NEW). 
When a PICTURE clause is specified, the picture value is 
used to compute key length up to a maximum of 48 (bits 
for OLD) or 8 (characters for NEW). In a picture 
specification resulting in a size greater than the maximum 
allowed, the key length defaults to the maximum value. 
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For example, assume the primary key item is as follows: 

02 SAK-KEY PIC 9(5) USAGE IS INTEGER 

If the file organization is ACTUAL OLD, the key length of 
SAK-KEY is 30 (bits). If the file organization is ACTUAL 
NEW, the key length of SAK-KEY is 5 (characters). If the 
file organization is DIRECT, SEQUENTIAL SORTED, or 
INDEXED, the key length is 10 (characters). 

The DUPLICATES phrase refers to the retrieval of 
duplicate keys. Available combinations are as follows: 

DUPLICATES 

DUPLICATES ARE ALLOWED 

DUPLICATES ARE LAST 

Duplicate key occurrences are allowed. The 
initial occurrence of the key is retrieved first, 
followed by the duplicates in the order in which 
they were stored. 

DUPLICATES ARE FIRST 

Duplicate key occurrences are allowed. 
Duplicates are retrieved before the initial 
occurrence of the key. The last duplicate stored 
is the first retrieved. 

DUPLICATES ARE NOT ALLOWED 

Duplicate key occurrences are not allowed. 



The DUPLICATES phrase is illegal under the following 
conditions: 

• File organization is ACTUAL. 

• File organization is DIRECT. 

• File organization is INDEXED NEW. 

• The multiple key option is selected. 



If the DUPLICATES phrase is omitted, duplicates not 
allowed is assumed. 
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A major primary key, which is defined as the leading 
portion of a primary key field, can be specified in the 
following manner: 

02 PRIMEKEY 

05 MAJORKEY PIC X(3) 
05 REST PIC X(3) 



FI LE-LIMIT IS integer 



Figure 4-12. FILE-LIMIT Clause Format 



o 



Multiple Key Option 

When file organization is INDEXED, ACTUAL, or DIRECT, 
multiple key fields can be specified within a record. When 
this option is selected, the primary key must not have 
duplicates. The Multiple-Index Processor accommodates 
record retrieval by alternate key data-name for these file 
organizations. The Multiple-Index Processor, which is an 
extension of CRM, maintains an index file for each 
alternate key. 

Multiple keys are specified by the KEY IS ALTERNATE 
option. The name of the alternate key is specified by 
data-name. Any number of alternate keys can be defined. 
The only restriction applies to the alternate key size, 
which cannot exceed 255 characters. 

The DUPLICATES phrase refers to the organization of the 
index file for the alternate key. Available combinations 
are as follows: 

DUPLICATES 

DUPLICATES ARE ALLOWED 

DUPLICATES ARE INDEXED 

Duplicate occurrences of the alternate key are 
allowed. In the index file, duplicates are stored in 
order (indexed) according to the primary key to 
which the alternate key corresponds. 

DUPLICATES ARE FIRST 

Duplicate occurrences of the alternate key are 
allowed. In the index file, duplicates are stored 
as they occur - first in, first out. 

DUPLICATES ARE NOT ALLOWED 

Duplicate occurrences of the alternate key are 
not allowed. 

If the DUPLICATES phrase is omitted, duplicates not 
allowed is assumed. 

A major alternate key, which is defined as the leading 
portion of an alternate key field, can be specified in the 
following manner: 



02 ALTKEY 



05 MAJORALTKEY 
05 REST -ALT 



PIC X(3) 
PIC X(3) 



SEQUENCE Clause 

The SEQUENCE clause specifies the collating sequence for 
the area. It is used in sort operations and in all 
comparisons involving items from the area. The format of 
the SEQUENCE clause is shown in figure 4-13. 



{ FORTRAN 
COBOL 
literal 



FILE-LIMIT Clause 



Figure 4-13. SEQUENCE Clause Format 

The COBOL collating sequence is the standard collating 
sequence and is the default assumed by DDL. The | 
FORTRAN collating sequence is the same as display code. 

The user can specify another collating sequence by defining 
a literal. The following rules apply to a user-defined 
collating sequence: 

• The literal cannot exceed 64 characters. 

• The literal can contain any characters from the 
standard character set, including blanks. 

• The literal must be enclosed in quotation marks. 

• The quotation mark character can be included and is 
specified by using double quotation marks. 

• If the literal is split between two lines on the coding 
form, a hyphen must be specified in column 7 of the 
second line and a quotation mark must be specified in 
or after column 12 of the second line. 

• All numeric and special characters not specified in the 
literal are treated as equivalents and are higher in the 
collation than the highest specified character. 



INDEX-LEVEL Clause 

The INDEX-LEVEL clause is used to determine the size of 
index blocks when an indexed sequential file is being 
created. The system uses the index level value and the 
maximum number of records given in the FILE-LIMIT 
clause to determine size. The format of the 
INDEX-LEVEL clause is shown in figure 4-14. 

The specified integer range is 1 through 63 with a default 
value of 1. 



! v> 



w 



\_.. 



The FILE-LIMIT clause specifies the maximum number of 
records in the file. The clause can be used when the area 
being created is an indexed sequential, direct access, or 
actual key file. The format of the FILE-LIMIT clause is 
shown in figure 4-12. 

If this clause is omitted, no limit is placed on the number 
of records in the file. 
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INDEX-LEVEL IS integer 



Figure 4-14. INDEX-LEVEL Clause Format 
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INDEX-BLOCK Clause 

The INDEX-BLOCK clause can be used in place of the 
INDEX-LEVEL clause to specify the size of index blocks 
when an indexed sequential file is being created. The 
format of the INDEX-BLOCK clause is shown in 
figure 4-15. 



INDEX-BLOCK CONTAINS integer CHARACTERS 



Figure 4-15. INDEX-BLOCK Clause Format 

| The specified integer range is 1 through 32767 with a 
default value of 511. 



INDEX-PADDING Clause 

The INDEX-PADDING clause specifies the percentage of 
the index block to be reserved for padding when an indexed 
sequential file is being created. Padding permits file 
growth without additional index levels. The format of the 
INDEX-PADDING clause is shown in figure 4-16. 



INDEX-PADDING IS integer PERCENT 



Figure 4-16. INDEX-PADDING Clause Format 

The specified integer range for the percentages is 
through 99 with a default value of 5. 



DATA-PADDING Clause 

The DATA-PADDING clause specifies the percentage of 
the data block to be reserved for padding when an indexed 
sequential or actual key file is being created. This clause 
is also used to permit record expansion without increasing 
input/output time. The format of the DATA-PADDING 
clause is shown in figure 4-17. 



DATA-PADDING IS integer PERCENT 



Figure 4-17. DATA-PADDING Clause Format 

The specified integer range for the percentages is 
through 99 with a default value of 0. 



ON CALL Clause 

The ON CALL clause specifies up to eight data base 
procedure exits to be taken by Query Update when specific 
conditions occur during processing. The format of the 
ON CALL clause is shown in figure 4-19. 



ON 


OPEN 

SEARCH 

MATCH 


CALL procedure-name 


MISMATCH 
UPDATE 


DISPLAY 


CLOSE 


RETRIEVAL 









Figure 4-19. ON CALL Clause Format 



The options in the ON CALL clause indicate both 
conditions and general procedure processing. The terms 
procedure and data base procedure are synonymous. The 
options are described as follows: 



OPEN 



Initialization is performed by the procedure when 
the area is opened at the beginning of processing 
of a transmission that accesses the area. 



SEARCH 



A record is supplied by the procedure in lieu of 
having Query Update read a record. When 
SEARCH is used, procedures must also be 
provided for the OPEN and CLOSE conditions. 



MATCH 

Processing of the selected record is performed by 
the procedure. 

MISMATCH 

Processing of a record that failed to satisfy the 
search is performed by the procedure. 

UPDATE 

Additional processing is performed by the 
procedure before the record is written to the area. 

DISPLAY 



o 
o 



NUMBER OF BLOCKS Clause 

The NUMBER OF BLOCKS clause specifies the number of 
home blocks to be assigned when a direct file is being 
created. The format of the NUMBER OF BLOCKS clause 
is shown in figure 4-18. 



NUMBER OF BLOCKS IS integer 



Figure 4-18. NUMBER OF BLOCKS Clause Format 

_ The maximum allowable value of the specified integer is 
| 16777215. If the clause is omitted, a default value of 5 is 
used. 
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The selected record is available in the record 
work area when this exit is called. 

CLOSE 

Processing is performed by the procedure prior to 
closing of the area at the end of a transmission 
that accessed the area. 

RETRIEVAL 

Additional processing is performed by the 
procedure to access a record immediately after 
CYBER Record Manager performs a read. 



A detailed description of ON CALL statement usage is 
included in appendix F. 
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RECORD DESCRIPTION ENTRY 

A record description entry follows its associated area 
description entry in the Data Division. One or more 
descriptions of a record can be specified within an area. 
The record description entry consists of the 
RECORD-NAME clause and a series of statements (data 
description entries) that name and describe records at the 
group and elementary levels. The format of the record 
description entry is shown in figure 4-20. 



RECORD-NAME Clause 
level-number data-name ' 
[PICTURE Clause] 
[OCCURS Clause] 
[USAGE Clause] 



Data Description Entries 



Figure 4-20. Formats of Record Description Entries 

The data description entries describe the data as it is used 
by the Query Update program. Since the RECORD-NAME 
clause assumes a level of 01, data description entries begin 
with level numbers 02 through 49. DDL imposes a limit of 
819 items per record. 

The reserved word FILLER can be used in place of a data 
name to retain space in a record. No information can be 
referenced with the name FILLER. 



RECORD-NAME Clause 

The RECORD-NAME clause is a required clause that must 
be used for each record with a differing format. A level of 
01 is implied for a record name. The format of the 
RECORD-NAME clause is shown in figure 4-21. 



RECORD-NAME IS record-name 



Figure 4-21. RECORD-NAME Clause Format 

The record-name is user-assigned and must be unique to 
the sub-schema. The rules governing the formation of a 
record name are listed in section 3. 



PICTURE Clause 

The PICTURE clause describes the general characteristics 
of an elementary data item in terms of its size and class. 
The location of an operational sign or an assumed decimal 
point can also be indicated in the clause. The format of 
the PICTURE clause is shown in figure 4-22. 



( PICTURE ) 

I PIC I ' S P' cture " s P ec 'f' ca ti° n 



Figure 4-22. PICTURE Clause Format 

This clause can be specified only for elementary data 
items. PIC is the legal abbreviation for PICTURE. 



The class of a data item is determined by the type of 
characters in the picture-specification. The characters 9, 
S, V, and P are used to describe numeric data items. An 
alphabetic data item is described by the character A. The 
picture-specification for an alphanumeric data item 
contains the character X or any combination of the 
characters X, 9, and A. 

The size of a data item is determined by the number of 9, 
X, or A characters in the picture-specification. The 
characters S, V, and P are not counted in determining the 
size. Consecutive identical characters in the string can be 
specified by a number in parentheses following the 
character. For example: 99999999 is equivalent to 9(8), 
XXXXXXXX is equivalent to X(8), and 9999AAAA is 
equivalent to 9(4)A(4); each indicates a data item with 
eight character positions. 

The picture-specification can contain a maximum of 30 
characters, including parentheses; however, a pictured 
item can be larger. A picture-specification containing the 
character A repeated 75 times is too long, but A(75) is a 
valid description for a data item with 75 alphabetic 
characters. Numeric data items can contain only 14 
significant digits; additional leading or trailing zeros for 
decimal point alignment can be specified up to a total of 
30 characters. 

The format and punctuation applied to a numeric source 
data item at the time it is displayed are called editing. 
Editing characters are of two types: 

• Insertion characters 

• Replacement characters 



The displayed format is referred to as a report item rather 
than a source data item. Insertion and replacement 
characters are not included in the size of a numeric source 
item. Insertion and replacement characters must be 
included in the size of a report item. 



Alph abetic Data Items 

The picture-specification to describe an alphabetic data 
item can contain only the character A. The A can be 
specified as many times as necessary as long as the size of 
the item does not exceed 2047 characters. 

The function of the characters in a PICTURE clause 
picture-specification for an alphabetic data item is as 
follows: 

A Each A in the picture-specification represents a 
character position that can contain either a letter 
of the alphabet or a space (blank). 

Some typical alphabetic data items are shown in 
figure 4-23. 



Picture-Specification 

AAAAA or A(5) 
AAAA or A(4) 


Data Value 

COSTS 
WXYZ 


D 


isplay Code Stored 


c|o|s 


tTs] 








Wj 


X 


Y 


z 











o 
o 









O 
w 



o 



Figure 4-23. Alphabetic Data Items 
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Numeric Data Items 

The picture-specification to describe a numeric data item 
can contain a combination of the characters 9, S, V, and P 
as well as insertion and replacement characters for 
editing. Each 9 represents a significant digit; a maximum 
of 18 digits can, be specified (only 14 digits are 
significant). The character P is used to indicate leading or 
trailing zeros. The combined number of positions indicated 
by the characters 9 and P cannot exceed 30 characters. 

The function of the characters in a PICTURE clause 
picture-specification for a numeric data item is as follows: 

9 Each 9 in the picture-specification represents a 
digit position that can contain a number. The 9 is 
counted in determining the size of the data item. 

S The character S is used in the picture- 
specification to indicate that the data item has an 
operational sign. It must be the leftmost 
character in the picture-specification; it cannot 
appear more than once. The operational sign does 
not occupy a character position in the data item 
and is not counted in its size. The operational 
sign cannot be used with the period editing 
character. 

V The character V is used in the picture- 
specification to indicate the position of an 
assumed decimal point. A V as the rightmost 
character in the picture-specification is 
redundant. The character V cannot appear more 
than once in the picture-specification. Since the 
assumed decimal point does not occupy a 
character position, the V is not counted in the 
size of the data item. 

P The character P in the picture-specification 
indicates an assumed decimal scaling position. It 
is used to specify an assumed decimal point when 
its position is not within the number that appears 
in the data item. If the assumed decimal point 
extends beyond the rightmost digit, one P is 
specified for each implied position between the 
rightmost digit and the assumed decimal point. 



Similarly, if the assumed decimal point extends 
beyond the leftmost digit, one P is specified for 
each implied position between the leftmost digit 
and the assumed decimal point. The item is 
treated as if a zero were substituted for each P 
and a decimal point were placed before the P or 
after the last P. Since the character P indicates 
an assumed decimal point, the character V in the 
picture-specification would be redundant. The 
character P is not counted in determining the size 
of the data item; however, it is counted in 
determining the maximum number of digit 
positions (30) in numeric data items. 

Some typical numeric data items are shown in figure 4-24. 



Alphanumeric Data Items 

The picture-specification to describe an alphanumeric data 
item contains either a combination of the characters 9, A, 
and X or only the character X. The size of the data item 
cannot exceed 2047 characters. 

The function of the characters 9 and A is the same as for 
numeric and alphabetic data items; the function of the 
character X is as follows: 

X Each X in the picture-specification represents a 
character position that can contain any character 
in the DDL character set. | 

Some typical alphanumeric data items are shown in 
figure 4-25. 



Insertion Characters 

Insertion characters in the picture of an item appear in the 
edited data item and are counted in the size of the report 
item. A maximum of 63 characters is allowed. Insertion 
characters for the PICTURE clause are as follows: 

$ A single dollar sign specified as the leftmost 
symbol in an item picture appears as the leftmost 
character in a report item. 



^jJ' 



Picture-Specification 
999 

99V999 
S99V99 
PPP9999 
SPPP9999 
S999PPP 



Data Value 



123 



12345 



+1234 



.0001234 



-.0001 234 



-123000. 



Display Code Stored 



|0 12 3 4 



Figure 4-24. Numeric Data Items 
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Picture-Specification 

XXXXXXXX or X(8) 
XXXXXXXX or X(8) 
AAAA999 
A(4)9(3) 


Data Value 

ABCD— «* 
123.4567 
ABCD123 
ABCD123 


Display Code Stored 


A |b |c| d|- | * • '. 




1 J2 J3 J. | 4 | 5 | 6 7 




A |B J C J D J 1 J2 J3 




A B C | D | 1 | 2 J 3 





o 



Figure 4-25. Alphanumeric Data Items 



A plus sign specified as the first or last symbol in 
an item picture is inserted in the indicated 
character position of the report item provided the 
data contains a positive operational sign or is 
unsigned. If the data is negative, a minus sign is 
inserted in the indicated character position. 



A minus sign specified as the first or last symbol 
in an item picture is inserted in the indicated 
character position of the report itBm provided the 
data contains a negative operational sign. If the 
data is positive, a blank is inserted in the 
indicated character position. 

A period is used in a report item picture to 
represent a decimal point. When it is used, a 
decimal point appears in the report item as a 
character in the indicated character position. 

, A comma used in the picture of an item is 
inserted in the corresponding character position 
of the report item. 

/ A slash used in the picture of an item is inserted 
in the corresponding character position of the 
report item. 

A zero used in the picture of an item is inserted 
in the corresponding character position of the 
report item. 

B The character B used in the picture of an item 
causes a blank to be inserted in the corresponding 
character position of the report item. 

CR The CR symbol represents credit and can be 
specified only at the rightmost position of the 
picture of an item. The symbol is inserted in the 
last two character positions of the report item 
provided the data contains a negative operational 
sign. If the data is positive or unsigned, the last 
two character positions are set to blanks. Since 
the credit symbol always results in two 
characters - CR or blanks - it is included as two 
characters in the size of the report item. 

DB The DB symbol represents debit and can be 
specified only at the rightmost position of the 
picture of an item. The debit symbol has the 
same results as the credit symbol. 



Examples of insertion characters are shown in figure 4-26. 



Replacement Characters 

A replacement character in the picture of an item 
suppresses leading zeros in the source data and replaces 
them with the specified character or a blank in the report 
item. Only one replacement character can be used in a 
picture. Replacement characters for the PICTURE clause 
are as follows: 

Z One character Z is specified as the leftmost 
symbol in an item picture for each leading zero to 
be suppressed and replaced by blanks. The 
character Z can be preceded by one of the 
insertion characters and interspersed with any of 
the insertion characters decimal point, comma, 
zero, or B. 

No zeros are suppressed to the right of the first 
nonzero digit whether a Z is present or not; nor 
are any zeros to the right of an assumed or actual 
decimal point suppressed unless the value of the 
data is zero and all character positions in the 
item are described by a Z. In this special case, 
even the actual decimal point is suppressed and 
the edited item is all blanks. 

If a $ + or - precedes the Z characters, it is 
inserted in the far left character position of the 
item even if succeeding zeros in the item are 
suppressed. In the special case where the value of 
the data is zero and all the character positions 
following the $ + or - are Zs, the $ + or - is 
replaced by blanks. 

If a comma, zero, or B is encountered before zero 
suppression terminates, the character is not 
inserted in the edited data item, but it is 
suppressed and a blank inserted in its place. 

* The asterisk causes leading zeros to be replaced 
by an asterisk instead of a blank. It is specified in 
the same way as the editing character Z and 
follows the same rules, except an actual decimal 
point is not replaced by an asterisk when the 
value of the data is zero. 

$ When the dollar sign is used as a replacement 
character to suppress leading zeros, it acts as a 
floating sign and is inserted directly preceding the 
first nonsuppressed character. One more dollar 
sign than the number of zeros to be suppressed 
must be specified. This dollar sign is always 
present in the edited data whether or not any zero 
suppression occurs. The remaining dollar signs 
act in the same way as the Z characters to 
suppress leading zeros. 



v> ; 
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Picture-Specification 


Data Value 


$99 


48 


$99.99 
9,999 


4834 

t 
4834 


+999 


292 


+999 


+ 
292 


+999 


292 



Displayed Item 



$ 


4 


8 








$ 


4 


8 




3 


4 






4 


, 


8 


3 


4 



999 

-999 

999- 

$BB999.99 

$00999.99 

99.99CR 

99.99CR 

99.99DB 

99.99DB 



292 



+ 
292 



292 

24321 

t 
24321 

t 
1134 

f 
1134 

t _ 
2376 

t 
2376 

t 



|+|2|9|2| 






1 + |2| 9| 2| 




1 - I 2 1 3 [ 2| 




|2 |9| 2| -| 




A I 2 I 9 I 2 ! 




2 | 9 | 2 | A| 




$ 


A 


A 


2 1 4 


3 




2 


1 




$|0|0| 2| 4| 3| ,| 2| 1 






1 


1 


. | 3| 4 


C 


R 





MMI-|3|4|a|a| 



|2|3| . |7| 6|D|B 



|2|3| . |7|6|A|A[ 



Figure 4-26. Examples of Insertion Characters 



o 



When a plus sign is used as a replacement 
character, it is a floating sign. The plus sign is 
specified one more time than the number of 
leading zeros to be suppressed. It functions in the 
same way as the floating dollar sign. A plus sign 
is placed directly preceding the first 
nonsuppressed character if the edited data is 
positive or unsigned; a minus sign is placed in this 
position if the edited data is negative. 



When a minus sign is used as a replacement 
character, it is a floating sign. The minus sign is 
specified one more time than the number of 
leading zeros to be suppressed. It functions in the 
same way as the floating plus sign. A minus sign 
is placed directly preceding the first 
nonsuppressed character if the edited data is 
negative; a blank is placed in this position if the 
edited data is positive or unsigned. 



Examples of replacement characters are shown in 
figure 4-27. Examples of picture editing are shown in 
figure 4-28. 



OCCURS Clause 

The OCCURS clause is used to indicate a repeated data 
item where all occurrences of the data item are identical 
in every respect except value. The data item can be an 
elementary item or a group item. The format of the 
OCCURS clause is shown in figure 4-29. 
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Picture- 
Specification 

ZZ999 

ZZZ99 

ZZZZ.ZZ 

S***.99 

SSS9.99 

- - - 9.99 

SSS.99 


Data Value 

00923 

00923 

000000 

00923 

t 
000824 

t 
00526 

t 
3265 
t 


Displayed Item 


|A|A|9|2 


3 








|A|A|9|2|3 




|A|A|A|A|A|A|A| 


|S|*| * |9|. j 2 | 3 J 


|A|A|S |8| . 1 2 | 4 1 


|A|Al -|5|.|2|6| 


|$|3|2|.|6|5| 



Figure 4-27. Examples of Replacement Characters 

A data description entry with format 1 of the OCCURS 
clause can be subordinate to another entry with either 
format of the OCCURS clause. An entry with format 2 
cannot be subordinate to an entry with the OCCURS 
clause. Up to three levels of nested data items can be 
specified with the OCCURS clause. Each group or 
elementary item with an OCCURS clause constitutes a 
level of nesting if it is subordinate to a repeating group. 
When repeating groups and vectors are nested, the vector is 
considered to be a repeating group and is included in the 
level count. 
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Picture-Specification 
2ZZ.999.99 
Z99.999.99 
SZZZ.ZZ9.99 
SZZZ.ZZZ.99 
S**\**9.99 
$**",***.99 

{ft # # * * # * QQ 

+999,999 
-ZZZ.ZZZ 

SZZZ.ZZ9.99CR 
SZZZ,ZZ9.99DB 
S(4),SS9.99 
S(4),SS.99 

- , .99 

BBBB.BBB.99 

SSSS.SZZ.99 

S99.99 



Data Value 
12345 

1234 

t 
123 
t 

12 
t 
1234 

123456 

123 

t 
12 

12 

123456 

123 
t 

1234 

t 

0000 

12 
t 

12 
t 

12 

12 



Displayed Item 


H1|2|.|3|4|5|.|0|0| 




H0|0|,|0|1 2|.|3|4| 




|$|a|a|a|a[a|a|i|.|2|3| 




$|A A A A A A A| . 1 1 2 




$ *|* 1|, 2 3|4 . 0|0 




$|l 23, 456 . | 




l$l*l«l*l*l*l*M|.|2|3| 




|+|0|0|0[.|0|1|2| 




- |A A A A A 1[2 




$12 3| , 456. 00 C|R 




|$ A a|a|a A A 1 .|2|3|A A 




AAAAS123. 4 1 




A A|A A|A|A[A|S .|o|o| 




|A|A|A|A|A|A A|-|. |,| 2 | 




|A|A|A|A|A|A|A|A|.|1| 2 | 



illegal picture 
illegal picture 



o 






^y 



Figure 4-28. Examples of Picture Editing 



Format 1 

OCCURS integer-2 TIMES 

Format 2 



OCCURS [integer-1 To] integer-2 TIMES DEPENDING ON data-name-1 



Figure 4-29. OCCURS Clause Format 



Integer-1 and integer-2 must be positive numbers and 
I cannot exceed 262142. In format 2, integer-2 must be 
greater than integer-1. The value of integer-1 can be zero; 
integer-2 must never be zero. 

An elementary data item described with the OCCURS 
clause must also be described with the PICTURE or USAGE 
clause. A group data item cannot be described with both 
the OCCURS clause and the PICTURE clause. FILLER can 
never be used with the OCCURS clause. 

When an item occurs a fixed number of times, format 1 is 
used and integer-2 specifies the exact number of 
occurrences. When an item occurs a variable number of 
times, format 2 is used and the number of occurrences for 
each record is determined as follows: 
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• Integer-1 represents the minimum number of 
occurrences; default minimum is zero. 



• Integer-2 represents the maximum number of 
occurrences. 



• Data-name-1 references a data item whose current 
value represents the number of occurrences. The 
value of data-name-1 must be a positive value within 
the range of integer-1 through integer-2. 
Data-name-1 must appear in the area section in the 
same logical record as the entry containing the 
OCCURS clause and must be defined before it is 
referenced. 
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In format 2, data-name-1 names an elementary item that 
is unique or can be made unique by qualification. It cannot 
be subscripted and it must be described as 
COMPUTATIONAL, COMPUTATIONAL-1, or DISPLAY. 
The size of the data item cannot exceed six characters. 
The elementary data item must precede the group data 
item that references it. 



DISPLAY Option 

A DISPLAY data item is stored in display code format. 
The data item can be alphabetic, numeric, or 
alphanumeric. When no USAGE clause is associated with a 
data item, DISPLAY is the default format. 



c 






o 



A data item that occurs a variable number of times must 
be the last item in a record description entry. The data 
description entry that contain the OCCURS clause can only 
be followed by subordinate entries. 



If both the OCCURS and RECORD CONTAINS clauses are 
specified and the RECORD CONTAINS clause does not 
include DEPENDING ON, the OCCURS specification 
overrides the RECORD CONTAINS clause. Specification 
of both OCCURS . . . DEPENDING ON and RECORD 
CONTAINS . . . DEPENDING ON is illegal. 



The total number of characters in all occurrences of a data 
item must be included when calculating the record size. 
The maximum size of a record is 262142 characters. 



USAGE Clause 

The USAGE clause specifies the internal representation of 
a data item in terms of the primary use of the data item. 
The clause specifies whether an item is used predominantly 
for computation or for display, but it does not necessarily 
limit the item to the usage specified. For example, a 
numeric display item can be used for computation. The 
format of the USAGE clause is shown in figure 4-30. 



USAGE IS 



DISPLAY 

COMPUTATIONAL 

COMP 

COMPUTATIONAL-1 

COMP-1 

COIVIPUTATIONAL-2 

COMP-2 

COMPLEX 

LOGICAL 

INTEGER 



Figure 4-30. USAGE Clause Format 

This clause can describe a data item at any level. When the 
USAGE clause is specified for a group item, it applies to 
each subordinate item in the group. The USAGE clause of 
an elementary item in a group cannot contradict the 
USAGE clause of the group item. 



A data item described as COMPUTATIONAL, 
COMPUTATIONAL-1, or COMPUTATIONAL-2 must be 
numeric with a size not exceeding 18 digits. If a group 
item is described as computational, the elementary items 
within the group are all computational; however, the group 
item itself is not computational and cannot be used in 
computations. 



COMP, COMP-1, and COMP-2 are legal abbreviations for 
COMPUTATIONAL, COMPUTATIONAL-1, and COMPUTA- 
TIONAL-2. 
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COMPUTATIONAL Option 

A COMPUTATIONAL data item has a decimal numeric 
value. The PICTURE picture-specification can contain the 
characters 9 (digit position), S (operational sign), V 
(implied decimal point), and P (assumed decimal scaling 
position); editing characters can also be included. 



COMPUTATIONAL-1 Option 

A COMPUTATIONAL-1 data item is stored as an 
unnormalized floating-point binary representation of a 
decimal number. When the size of the data item is 14 
digits or less, the data item is single-precision and 
contained in one computer word. When the size of the data 
item is 15 to 18 digits, the data item is double-precision 
and requires two computer words. A PICTURE clause can 
be included with this option if editing is desired. 

A COMPUTATIONAL-1 data item created by a COBOL 5 
program must be read as an integer (refer to INTEGER 
option). 



COMPUTATIONAL-2 Option 

A COMPUTATIONAL-2 data item is stored as a normalized 
floating-point binary representation of a decimal number. 
The decimal point location is carried in the data item itself 
as a binary exponent. The data item is single-precision and 
is stored in one computer word. Size is immaterial for a 
COMPUTATIONAL-2 data item; a PICTURE clause can be 
included with this option and is meaningful only for editing. 



COMPLEX Option 

A COMPLEX data item is an ordered pair of signed or 
unsigned real constants; the first represents the real part 
of the complex number and the second represents the 
imaginary part of the complex number. A PICTURE clause 
can be included with this option if editing is desired. 



LOGICAL Option 

A LOGICAL data item assumes only the values of true or 
false. When this option is selected, Query Update displays 
the true/false condition rather than the value of the 
described data. 



INTEGER Option 

An INTEGER data item is a number written without a 
decimal point or exponent field. It can consist of a 
maximum of 18 decimal digits within the range of 
-(248_i) < n < (248_i). integers used as subscripts are 
limited to 2l'-2. Integer constants can be positive, 
zero, or negative and must be within the allowed 
magnitude; they cannot contain embedded commas. 
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The integer option can be used to read COBOL 5 
COMPUTATIONAL-1 data items that are scaled integers. 
To specify a COBOL 5 scaled integer in a Query Update 
sub-schema, the picture-specification must represent a 
fractional part, as in the following example: 

02 DATA-ITEM PIC 99.99 USAGE IS INTEGER 

If the data item is assigned the value 12.34, the data base 
area actually contains the integer 1234. When the data 
item is referenced by a program, Query Update scales the 
item by dividing it by 100, giving the value 12.34. 



JOIN Clause 



The JOIN clause specifies the data items that Query 
Update must inspect to join the areas in which the data 
items reside. The order in which the join terms are 
specified determines the direction of the relationship. A 
join term can be a full primary key, a major primary key, a 
full alternate key, a major alternate key, or a non-key data 
item. The JOIN clause is required if a RELATION-NAME 
clause is present. The format of the JOIN clause is shown 
in figure 4-33. 



o 



RELATION DIVISION 

The Relation Division is the last division in the DDL source 
program. It is optional and if included it must immediately 
follow the Data Division. The Relation Division identifies 
the specific area relationships that are to be used when 
querying more than one area of the data base and specifies 
the qualification criteria that determine the projected 
records that can be selected for the Query Update user. 
The format of the Relation Division is as follows: 

RELATION DIVISION . 

< relation description entry 1 . . . 

RELATION DESCRIPTION ENTRY 

The relation description entry is a statement consisting of 
the RELATION-NAME, JOIN, and RESTRICT clauses, 
which specify the relation name, the join terms, and the 
record qualification restrictions, respectively. Each 
relation description entry identifies one relation. The 
format of the relation description entry is shown in 
figure 4-31. 



RELATION-NAME clause 
JOIN clause 
[RESTRICT clause] 



Figure 4-31. Relation Description Entry Format 
RELATION-NAME Clause 

The RELATION-NANC clause assigns a name to the 
relation. It must be the first clause specified in the 
relation description entry. The format of the 
RELATION-NAME clause is shown in figure 4-32. 



RELATION-NAME IS relation-name 



Figure 4-32. RELATION-NAME Clause Format 

The relation-name must be unique among all area-names 
and relation-names in the sub-schema. It can be up to 30 
characters in length. An area can be included in more than 
one relation. Areas that have sequential, indexed 
sequential, direct access, and actual key file organizations 
can be joined in a relation. An area that is joined in a 
relation can contain only one record description. 



JOIN WHERE identifier-1 EQ identifier-2 
[Jdentif ier-3 EQ identif ier-4 J . . . 



Figure 4-33. JOIN Clause Format 



Within the JOIN clause a specified data item in one area is 
equated with an identical data item in another area; the 
two areas are thus related through specification of a 
common data item. The relational operator EQ must 
appear between each pair of identifiers included in the 
JOIN clause; the source identifier appears to the left of 
the EQ and the target identifier appears to the right. 



The term identifier reflects a unique reference to a 
data-name; it implies that the data-name is referenced 
uniquely through a combination of subscripts and 
qualifiers. Refer to section 3 for the identifier format. 



Each source identifier (except the first) must be in the 
same area as the previous target identifier, so that a 
continuous path from one area to the next area is defined. 
Cycling is not allowed; an area cannot be joined to itself 
directly or indirectly. 

The identifiers to the left and to the right of a relational 
operator must have identical characteristics in the 
picture-specification and in the USAGE specification. The 
position of the data items within the records need not be 
identical. The identifier must not specify a data item that 
is more than 255 characters long. Subscripting and 
qualification can be specified for an identifier. The data 
item referenced by an identifier can be any of the 
following types of data items: 



• A nonrepeating elementary item (no subscript) 

• A specific occurrence of a repeating elementary item 
or an occurrence of a repeating group item (up to 
three subscripts) 



All occurrences of a repeating data item if it is an 
alternate key or the major part of an alternate key 
and is specified to the right of the EQ in the JOIN 
clause 



If a repeating elementary item or group item is specified 
without a subscript, the first occurrence is used to join the 
relationship. 



vy 



V_y 






O 
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Generally, if a target identifier is defined as a key field, 
retrieval of record occurrences from the file containing 
the target identifier is by that key. This rule holds for 
repeating or nonrepeating elementary items. Only the first 
occurrence of a repeating item can be defined as a primary 
key. If a repeating group item or a repeating elementary 
item is defined as an alternate key, all occurrences of the 
item or group item are used as the key, rather than just the 
first occurrence. The ANY option used as a subscript 
identifies this type of alternate key field as a join term. If 
any one of the item occurrences satisfies the equality, the 
record occurrence is included in the relationship 
occurrence. 

If the target identifier is a major part of a repeating 
alternate key, then a given record occurrence could be 
retrieved more than once. CHILD-NAME, in the example, 
is defined as an alternate key and TWO-LETTERS as the 
target identifier (a major part of the alternate key): 

02 CHILD-NAME OCCURS 3 TIMES 



03 TWO-LETTERS 
03 OTHERS 



PICTURE X(2) 
PICTURE X(8) 



Now, if a particular record occurrence contains the values 
JOAN, JOE, and JOHN, it will be delivered three times 
(rather than once) when retrieved by the relational 
mechanism. 

More than one relation can be defined joining two given 
areas, thus enabling network data structures to be 
described where multiple relations exist between two 
record descriptions. Since a query can be made against 
only one relation at a time, user intervention is required 
when multiple relations exist. To minimize the need for 
user intervention, only one relation joining any given pair 
of areas should be specified in a sub-schema. Having one 
sub-schema per relation, with appropriate RESTRICT 
clauses for the records and passwords for the areas, is a 
good method of tailoring the sub-schema to a specific 
application or user population and enforcing privacy and 
security rules. 



RESTRICT Clause 



Record-name designates the record description to which 
the qualification restrictions pertain. The record 
description must appear in the Data Division of the 
sub-schema. The record-name must be contained in an 
area that has been joined by the relation named in the 
preceding RELATION-NAME clause. 



A separate RESTRICT clause must be specified for each 
record description in which qualification is required. A 
given record can appear in only one RESTRICT clause for a 
particular relation. The RESTRICT clauses must appear in 
the same order in which the areas containing the record 
descriptions are joined in the relation definition. Refer to 
the example in figure 4-35. 



RELATION DIVISION. 

RELATION-NAME IS RELNAME 

JOIN WHERE ITEM1 EQ ITEM2 ITEM3 EQ ITEM4 

RESTRICT RECORD1 

WHERE ITEM4 EQ ITEM5 

AND ITEM6 EQ "ABC" 

OR ITEM7 LE ITEM8 

RESTRICT RECORD2 



RESTRICT RECORD3 



Figure 4-35. RESTRICT Clause Example 



The identifiers represent data items whose values are 
examined by Query Update to determine whether the 
projected record qualifies for selection. They are termed 
qualifier identifiers. Refer to section 3 for the identifier 
format. 






U 

o 



The optional RESTRICT clause specifies the qualification 
criteria that must be satisfied before a projected record 
can be selected for the Query Update user. The format of 
the RESTRICT clause is shown in figure 4-34. 



All qualifier identifiers must be defined in the record 
named in the RESTRICT clause. An identifier can be used 
as both a join term and a qualifier identifier in the relation 
description entry. 



RESTRICT record-name 



WHERE [NOT] [( ] identifier-1 



AND | I NJ 

f- } '[NOT] [l] Identifier^/ ^ 

GE 

LE 




identifier-2 
literal-1 



}w 



fidentifier-4i p -. 
^literal-2 / L-J 



Figure 4-34. RESTRICT Clause Format 
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A qualifier identifier can be a subscripted data item but 
cannot be a data item that is within a repeating group 
subordinate to another repeating group. For example in 
the following data description, Z(l) or Z(2) can be defined 
as qualifier identifiers, but occurrences of A, B, or C 
cannot be qualifier identifiers because they are subordinate 
to Z. 

02 Z OCCURS 2 TIMES 

03 A OCCURS 3 TIMES 

04 BPICX(IO) 
04 C PIC X(5) 



Qualifier identifiers cannot be described with the 
LOGICAL option in the USAGE clause. Only constant 
integers are allowed as item subscripts. 



Literals specified in the RESTRICT clause must be 
compatible with the representation of the identifier 
corresponding to the literal. Literals cannot be figurative 
constants such as LAST, NEXT, and so on. 



A maximum of 1024 entities (identifiers, operators, and 
literals) can appear in any one RESTRICT clause. 



o 
o 



v> 



\_y 
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SUB-SCHEMA COMPILATION 



\*r 



o 
o 



The Query Update sub-schema is coded on a standard 
80-column coding sheet according to the specifications in 
this manual. Coding information is punched on 80-column 
cards or entered through a terminal. The resulting source 
program and various control statements are input to the 
DDL compiler to compile the sub-schema and to store it in 
the sub-schema library. The control statements provide 
information for the operating system and for the DDL 
compiler. A set of control statements, beginning with a 
job statement and ending with a 7/8/9 card or its 
equivalent, precedes the DDL source program. 



SUB-SCHEMA LIBRARY 

One or more compiled sub-schemas are stored in a 
permanent file called the sub-schema library. The library 
is created when the first sub-schema is stored in it. 
Subsequent sub-schemas can be added to the library or can 
replace existing sub-schemas in the library. A sub-schema 
can be deleted from the library through the use of the 
purge parameter in the DDL control statement. A 
sub-schema that has had sub-schemas replaced or purged 
can be transferred to a new, compacted sub-schema library. 

Data security can be maintained by creating more than one 
sub-schema library to control the availability of the 
sub-schemas to the Query Update programs. Sub-schemas 
providing access to data that is restricted to specific 



applications can be stored in one sub-schema library while 
sub-schemas for general use can be stored in a different 
library. Each library is identified by a unique permanent 
file name. This permanent file name is specified in a 
Query Update INVOKE (or USE), CREATE, or VERSION 
directive that uses a sub-schema in the library. 

DDL CONTROL STATEMENT 

The DDL control statement must be included in the set of 
control statements preceding the DDL source program. It 
provides the DDL compiler with information related to a 
specific Query Update sub-schema. The format and 
description of the DDL control statement are shown in 
figure 5-1. 

Only one library manipulation function can be performed in 
an execution of DDL. If more than one function is 
specified, a control statement error is issued. If a library 
manipulation function is attempted on a nonempty file that 
does not contain a library, a diagnostic is issued and the job 
is aborted. 



NOS/BE CONTROL STATEMENTS 

In addition to the DDL control statement, standard 
NOS/BE control statements are included in the set of 
control statements preceding the DDL source statements. 



DDL3(QD,SB= 


lfn,p 1 ,p 2 ,P3.P4,p 5 ,p 6 ,P 7 ) 


DDL3 






Identifies the DDL control statement. 


QD 






Specifies a Query Update sub-schema in CRM data base access mode. 


SB=lfn 






Specifies the logical file name (Ifn) of the sub-schema library. 


Pi 


1= 


Ifn 


An optional parameter that specifies a nondefault input file; Ifn is the logical file name of the 
source input file; default is INPUT. 


P 2 


L= 


=lfn 


An optional parameter that specifies a nondefault output file; Ifn is the logical file name of the 
source listing file; default is OUTPUT. If L=0 is specified, only diagnostics and associated 
statements are listed. 


P3 


R 




An optional parameter that replaces the existing sub-schema in the sub-schema library with the 
sub-schema compiled from the source program in the input deck. Replacement takes place only 
if no compilation errors other than informative diagnostics are encountered. 


P 4 


N 




An optional parameter that compiles the sub-schema but does not add it to the sub-schema 
library. 


P5 


P 




An optional parameter that purges the specified sub-schemas from the sub-schema library; no 
compilation takes place. 


P6 


A 




An optional parameter that produces a list of sub-schemas, together with their creation dates, 
from the library indicated by the SB parameter. 


P7 


NL=lfn 


An optional parameter that transfers the active sub-schemas in the sub-schema library (indicated 








by the SB parameter) to a new sub-schema library (indicated by the NL parameter). Also, use 
of the NL parameter produces a list of sub-schemas, together with their creation dates. 



Figure 5-1. DDL Control Statement Format 
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Refer to the NOS/BE reference manual for complete 
descriptions of the NOS/BE control statements. Two 
control statements that must be used in specific instances 
are described in the following paragraphs. 

REQUEST CONTROL STATEMENT 

The REQUEST control statement is included in the set of 
control statements for the first sub-schema to be stored in 
the sub-schema library. This statement specifies the 
logical file name of the sub-schema library. The format 
and description of the REQUEST control statement are 
shown in figure 5-2. 



REQUEST(lfn,*PF) 








Ifn 


Specifies 


the logical file 


name 


of the sub- 




schema 


library. 







Figure 5-2. REQUEST Control Statement Format 

CATALOG CONTROL STATEMENT 

The CATALOG control statement is used to catalog the 
sub-schema library in a permanent file. This statement 
must be included in the set of control statements for the 
first sub-schema to be stored in the library. If more than 
one sub-schema is to be stored in the library, the extend 
(EX) and modify (MD) parameters must be specified. The 
format and description of the CATALOG control statement 
are shown in figure 5-3. 



CATALOG<Ifn,pfn,ID=owner,EX=pw,MD=pw,CN=pw) 


Ifn 


Specifies the logical file name of the 
sub-schema library. If Ifn is omitted, 
the first seven characters of the pfn 
are used for the logical file name. 


pfn 


Specifies the permanent file name of 
the sub-schema library. If pfn is 
omitted, the Ifn is used for the 
permanent file name. 


ID=owner 


Identifies the owner of the sub- 
schema library file/ being created. 


EX«pw 


Specifies the password required to 
add a sub-schema to the sub-schema 
library. 


MD=pw 


Specifies the password required to 
make a change to the sub-schema 
library. 


CN=pw 


Specifies the password required to 
purge the sub-schema library. 



Figure 5-3. CATALOG Control Statement Format 



NOS CONTROL STATEMENTS 

I The set of control statements preceding the DDL source 
statements include the DDL control statement and 
standard NOS control statements. Refer to the NOS 
reference manual for complete descriptions of the control 
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statements. The DEFINE control statement is used to 
create a sub-schema library file. The format and 
description of the DEFINE control statement are shown in 
figure 5-4. 



DEFINE(lfn=pfn/PW=passwrd,CT=ct,M=m} 

lfn=pfn Specifies the logical and permanent 

file name of the sub-schema library. 
If pfn is omitted, Ifn is the perma- 
nent file name. 

PW=passwrd Specifies the password required to 
add a sub-schema to the sub- 
schema library. 

CT=ct Specifies the method of access. 

Available entries include P(private), 
S(semiprivate), and PU(public). 

M=m Specifies the file or user permission 

mode. Available entries include W 
(writej, M(modify), A(append), and 
R(read). 



Figure 5-4. DEFINE Control Statement Format 

SAMPLE PICK STRUCTURES 

The deck structures shown in the following paragraphs 
illustrate the control statements required to compile, 
store, and delete Query Update sub-schemas. Control 
statements are shown for both the NOS/BE and NOS 
operating systems. 

COMPILING A SUB-SCHEMA 

The source program for a Query Update sub-schema can be 
compiled without storing the sub-schema in a library. This 
is accomplished with a deck structure similar to the one 
shown in figure 5-5. The DDL3 control statement must be 
included in the control statements, and the compile 
parameter (N) must be specified. 



NOS/BE and NOS Operating Systems 



7 
8 
9 



L 



DDL Sub-Schema Source Input 



7 
8 



9/ DDL3(OD,SB=QUSUB,'nT 
/ Job Statement 



Figure 5-5. Compiling a Sub- Schema 



I 
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CREATING A SUB-SCHEMA LIBRARY 



ADDING TO THE SUB-SCHEMA LIBRARY 



The sub-schema library is created when the first 
sub-schema is stored in it. Figure 5-6 illustrates a deck 
structure used to compile a sub-schema and create a 
sub-schema library. 

In this example, the REQUEST /CATALOG and DEFINE 
control statements specify the logical file name of the 
sub-schema library (QUSUB) and assign it to a permanent 
file device. If only one sub-schema is to be stored in the 
library, the sub-schema name can be used for the library 
file name. The DDL3 control statement names the 
sub-schema library file. 



Once the sub-schema library has been created and made a 
permanent file as described in the Creating a Sub-Schema 
Library subsection, new sub-schemas can be added to the 
library. The deck structure illustrated in figure 5-7 adds a 
sub-schema to the sub-schema library created by the 
example in figure 5-6. 



The ATTACH control statement in this example is required 
to attach the sub-schema library file QUSUB. The DDL3 
control statement requires only the QD and SB parameters. 



NOS/BE Operating System 



L 



DDL Sub-Schema Source Input 



L 



CATALOG(QUSUB,ID=SMITH, 
CN=PURGE,EX=ADD,MD=ADD) 



/ DP L3(QD,SB=QUSUB) " 



/REQUEST(QUSUB,*PF) 
/Job Statement 



NOS Operating System 



/DDL 



Sub-Schema Source Input 



/DDL3(QD,SB=QUSUB)" 



/DEFINE(QUSUB/PW=ADD,CT=PU,IVHvl) 
/job Statement 



Figure 5-6. Creating a Sub-Schema Library 



8 
^1 9 



NOS/BE Operating System 



/DDL 



Sub-Schema Source Input 



/DDL3(QD,SB=QUSUB) 
/ATTACH(QUSUB / ID=DDL,PW=DDLr 



Job Statement 



NOS Operating System 



f 6 
7 
8 
9 /DDL Sub-Schema Source Input 



i 



/PDL3(QD,SB=QUSUB) 



r ATTACH(QUSUB/PW=DDL,M=W) 



Job Statement 



o 



Figure 5-7. Adding a Sub-Schema to the Library 
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Each sub-schema stored in the library must have a unique 
name. If the sub-schema being added to the library has the 
same name as a sub-schema already stored in the library, a 
diagnostic is issued and the job is aborted. 



REPLACING A SUB-SCHEMA 

A new sub-schema can replace one that is stored in the 
sub-schema library. Figure 5-8 illustrates a deck structure 
for replacing a sub-schema in the library. 

The sub-schema library file with the applicable password is 
attached. In addition to the QD and SB parameters in the 
DDL3 control statement, the replacement parameter (R) 
must be specified. If the sub-schema to be replaced cannot 
be found in the sub-schema library, an informative 
diagnostic is issued and the new sub-schema is added to the 
library. 



DELETING A SUB-SCHEMA 

A sub-schema stored in the sub-schema library can be 
deleted from the library by specifying the purge 
parameter (P) in the DDL3 control statement. A deck 
structure for deleting two sub-schemas is shown in 
figure 5-9. 

The sub-schema library file must be attached. The QD, SB, 
and purge parameters are specified in the DDL3 control 
statement. The 7/8/9 card or its equivalent designates the 
end of the control statements. This is followed by 
statements that specify the sub-schemas to be deleted. 
The sub-schema name is entered anywhere from column 8 
through 72. If more than one sub-schema name is entered, 
a space or comma must follow each sub-schema name. 



NOS/BE Operating System 



t 



DDL Sub-Schema Source Input 



/DDL3(QD,SB=QUSUB,r7 



/attach(qusub,id^ddl,pw=dd"lT 



'Job Statement 



COMPACTING A SUB-SCHEMA LIBRARY 

Sub-schema library compaction is an optional facility that 
generates a new sub-schema library by copying only the 
active sub-schemas from the specified sub-schema library. 

Figure 5-10 illustrates the deck structure for compacting 
the sub-schema library. The sub-schema library is 
attached with the appropriate password. The 
REQUEST/CATALOG and DEFINE control statements 
specify the logical file name for the new, compacted 
sub-schema library and assign the new library to a 
permanent file device. The DDL3 control statment must 
specify the QD parameter, the SB parameter with the 
name of the current sub-schema library to be compacted, 
and the NL parameter with the name of the new 
sub-schema library. 

This facility is intended to be used on a sub-schema library 
that has had a number of sub-schemas purged or replaced 
and, therefore, contains wasted space. DDL eliminates the 
wasted space in the new sub-schema library. After the 
new sub-schema library is stored as a permanent file, the 
user should purge the old sub-schema library. This facility 
does not allow for compilation of sub-schemas. 



COMPILATION OUTPUT 

A listing of the DDL source program is provided whenever 
a sub-schema is compiled. Each line of the listing 
corresponds to one statement in the source program. The 
format and order of each line on the listing are identical to 
the format and order of the statements in the source 
program. Figure 5-11 is a sample source listing for a 
sub-schema compilation. 



NOS Operating System 



/DDL 



Sub-Schema Source Input 



9 /DDL3(QD,SB=QUSUB,R) 



' ATTACH (QUSUB/PW=DDL,M=W) 



/Job Statement 



o 
o 



\^J 



vy 






Figure 5-8. Replacing a Sub-Schema in the Library 
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NOS/BE Operating System 



NOS Operating System 



( 



/ NEWHIRES 



PAYROLL 



/ DP L3(QD,SB=QUSUB,"pT 



/attach(qusub,id=ddl,pw=ddd 

/Job Statement 



t 



/newhires 



PAYROLL 



/ DDL3(QD,SB=QUSUB^pT 



/ATTACH(QUSUB/PW=DDL,M=M) 



/ Job Statement 



Figure 5-9. Deleting Sub-Schemas From the Library 



o 






NOS/BE Operating System 



L 



NOS Operating System 



CATALOG(NEWSUB,ID=DDL,MD=DDL, 
EX=DDL,CN=DDLX) 



/ DDL3(QD,SB<tUSUB,NL=NEWSUB) 



/ REQUEST(NEWSUB,*PF) 



'ATTACH(QUSUB,ID=DDL,PW=DDL) 



Job Statement 



/dDL3(QD,SB=QUSUB,NL=NEWSUB~ 



/PEFINE(NEWSUB/PW=DDL,CT=PU,M=W) 
/aTTACH(QUSUB/PW=DDL,M=W) 

/ Job Statement 



Figure 5-10. Compacting a Sub-Schema Library 



The DDL compiler assigns a line number to each input 
statement beginning with 00001. The line numbers are 
printed on the source listing starting in column 16. 
Diagnostic messages begin in column 3 of the listing. 
After the last input statement is listed, a compilation 
summary is printed. The source listing can be suppressed 
by specifying L=0 in the DDL control statement; only 
diagnostic messages and the compilation summary are 
printed. 



FIELD LENGTH REQUIREMENTS 



Typical field length requirements for generating a Query 
Update sub-schema are 45gK. For more complex source 
input, additional core requirements are approximately ten 
words per data item contained in the record description 
entries. 



o 
o 
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00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 



DDL COMPLETE. 

45100B CM USED. 



* SOURCE LISTING * (80059) DDL 3.2+I6C. 



IDENTIFICATION DIVISION. 
SUB-SCHEMA NAME IS FINANCE 
DATA DIVISION. 
AREA-NAME IS ACCOUNTING 

LOG REC BEFORE, AFTER TRANS ASSIGN TO LOGFILE 
ORGANIZATION IS DIRECT KEY IS EMP-NO 
ON UPDATE CALL VALCHCK 
RECORD-NAME IS PAYROLL 
02 NAMES 

03 FIRST-INITIAL 

03 SECOND-INITIAL 

03 LAST-NAME 



02 EMP-NO 

02 DEPT-NO 

02 RATE 

02 HOURS-WORKED 

02 ADDRESS 
03 NUMBERS 
03 STREET 
03 CITY 
03 ZIP-CODE 
03 STATE 
BEGIN SUB-SCHEMA FILE MAINTENANCE 

END OF FILE MAINTENANCE 
DIAGNOSTICS. 
0.531 CP SECS. 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X 

X 

X(20) 

9(5) 

9(4) 

9V99 



PIC 99 



PIC 
PIC 
PIC 
PIC 
PIC 



9(5) 

X(23) 

A(20) 

9(5) 

A(2) 



o 
o 



<_> 



Figure 5-11. Sub-Schema Source Listing 



CREATING A DATA BASE 

A data base can be generated for Query Update by using 
the CREATE directive as detailed in the Query Update 
reference manual. An alternate method involves the use of 
a program to read an input deck and write the data to mass 
storage. This method is discussed in the following 
paragraphs. 

Data can be stored in the data base providing it is stored 
according to the descriptions and techniques declared in a 
sub-schema. After the sub-schema is compiled and stored, 
the data can be accessed by Query Update. 



Figure 5-12 illustrates a sub-schema named FINANCE | 
prepared for input to mass storage. Three areas are 
defined: ACCOUNTING, REPORTA, and VENDORD. The 
sub-schema is entered through the NOS/BE operating 
system with a sub-schema library name of DIRFILE. 



v_y 



Figure 5-13 illustrates three data decks containing the 
actual data that is to be stored according to the 
specifications of sub-schema FINANCE. Data for the 
ACCOUNTING area is entered by a COBOL program! data 
for the REPORTA area is entered by a FORTRAN 
program; and data for the VENDORD area is entered by a 
COMPASS program. 



I 
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FINANCE 
ACCOUNTING 
REPORTA 
VENDORD 



1 



DDL Source Deck 



IDENTIFICATION DIVISION. 
SUB-SCHEMA NAME IS FINANCE 



DATA DIVISION. 



AREA NAME IS ACCOUNTING 



AREA NAME IS REPORTA 



AREA NAME IS VENDORD 



/CATALOG(DIRFILE,ID=JDOE,EX=LOCK ,MD=LOCK,CN=LOCK) 



/ DDL3(QD,SB=DIRFILb7 



( 



/REQUEST(DIRFILE,*PF) 



Job Statement 



Figure 5-12. Describing the Data Base 
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1 



Data Deck 



/ 



COBOL Source Deck 



L 



V. 



T^-CATALOGtFILEI.ACCOUNTING.ID'JDOE) 



LGO. 



COBOL. 



( 



/request(filei,»pf~ 



Job Statement 



6 

7 > fJ== 

8 / ' 

g / Data Deck 



L 



FTN Source Deck 



1 



\L 



- a -/-CATALOG(FILE2,REPORTA,ID=USERNAME) 



LGO. 



FTN. 



( 



/REQUEST(FILE2,«PF) 



Job Statement 



1 



Data Deck 



/ 



COMPASS Source Deck 



VI 



-/- CATALOG(FILE3,VENDORD,ID=JDQE) 



_ LGO. 
/COMPASS. 



{ 



/ REQUEST(FI LE3,*PF)" 



Job Statement 



o 



/f~- 



V> 



Figure 5-13. Creating the Data Base 



o 



5,8 



60482100 C 



EXAMPLES 



I A sample sub-schema named ACCOUNTING is shown in 

figure 6-1. The sub-schema library QUSUBS is created to 
I store the sub-schema. The sub-schema contains three 

areas named ORDERS, LINEITEMS, and CUSTOMERS. 

Each area is stored under an ID of XYZ as indicated by the 

permanent file parameters. 

A procedure library named PROCLB is associated with the 
sub-schema. This library contains the data base procedure 
named CHECK that is called to perform special processing 
each time the ORDERS file is updated. PROCLB is stored 
under an ID of ABC. Cycle number 3 is to be attached. 



The ORDERS and CUSTOMERS areas are declared indexed 
sequential. Their index files, which are named ORDX and 
CUSTX respectively, are stored under an ID of XYZ. The 
ORDERS area defines ORDER-NO as a primary key and 
CUST-NO as an alternate key. The CUSTOMERS area 
defines CUST-NO as a primary key. The LINEITEMS area 
is declared direct access and CUST-NO is defined as a 
primary key. 



ACCOUNTING is a relational sub-schema. The relation | 
name is RELEXAMPLE and the join term is CUST-NO. 



o 






o 

o 



Job Statement 

REQUEST(QUSUBS,*PF) 

DDL3(QD,SB=QUSUBS) 

CATALOG(QUSUBS,ID=XYZ,CN=PURGE,EX=ADD,MD=CHG) 

7/8/9 Card 

IDENTIFICATION DIVISION. 

SUB-SCHEMA NAME IS ACCOUNTING 

PROCEDURE LIBRARY IS PROCLIB ID IS ABC CY IS 003 

DATA DIVISION. 

AREA-NAME IS ORDERS ID IS XYZ 

INDEX IS ORDX ID IS XYZ 

ORGANIZATION IS INDEXED 

KEY IS ORDER-NO KEY IS ALTERNATE CUST-NO 

ON UPDATE CALL CHECK 

RECORD-NAME IS ORDER-REC 

02 ORDER-NO PIC 9(6) 

02 ORDER-DATE PIC XC10) 
CUST-NO PIC 9(4) 



02 

02 TOTAL-VALUE 
AREA-NAME IS LINEITEMS ID IS XYZ 
ORGANIZATION IS DIRECT 
KEY IS CUST-NO 
RECORD-NAME IS ITEM-REC 

02 CUST-NO 

02 ITEM-NUM 

02 QUANTITY 

02 ITEM-PRICE 
AREA-NAME IS CUSTOMERS ID IS 
INDEX IS CUSTX ID IS XYZ 
ORGANIZATION IS INDEXED 
KEY IS CUST-NO 
RECORD-NAME IS CUST-REC 

03 CUST-NO 
03 BILLING-ADDR 

OS CUST-NAME 

05 CUST-STREET 

05 CUST-STATE 

05 CUST-ZIP 
RELATION DIVISION. 
RELATION-NAME IS RELEXAMPLE 
JOIN WHERE CUST-NO OF ORDER-REC EQ CUST-NO OF ITEM-REC 

CUST-NO OF ITEM-REC EQ CUST-NO OF CUST-REC 
RESTRICT CUST-REC WHERE CUST-STATE EQ "CA" 



PIC Z(12).99 



PIC 9(4) 
PIC X(16) 
PIC Z(7) 
PIC Z(4).99 
XYZ 



PIC 9(4) 

PIC X(20) 
PIC X(14) 
PIC AA 
PIC 9(5) 



6/7/8/9 Card 



Figure 6-1. Creating a Sub-Schema Library and Compiling a Sub-Schema Under the NOS/BE Operating System 
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When the Query Update program is executing in relation 
mode under this sub-schema, records within the three areas 
are made available whenever the contents of CUST-NO 
compare. The RESTRICT clause imposes a restriction on 
the CUSTOMERS area. Only customers with billing 
addresses in the state of California can qualify for 
retrieval. 



A sample sub-schema named SALES, stored in the 
sub-schema library QUSUB1, is shown in figure 6-2. The 
sub-schema contains one area named INVOICING with one 
record named SALES-RECORD. Sub-schema SALES is a 
basic example illustrating the declaration of a primary and 
an alternate key. 



I 



o 
o 



Job Statement 

DEFINE(QUSUB1/PW=ADD,CT=PU,M=M) 
DDL3(QD,SB=QUSUB1) 
7/8/9 Card 



IDENTI 
SUB-SC 
DATA D 
AREA-N 
BLOCK 
ORGANI 
KEY IS 
DU 
FILE-L 
INDEX- 
INDEX 
DATA-P 
RECORD 
03 
03 



03 
03 
03 



03 
03 



FICATION DIVISI0 
HEMA NAME IS SAL 
IVISI0N. 

APE IS INVOICING 
CONTAINS 10000 C 
ZATI0N IS INDEXE 
INV0ICE-NUM KEY 
PLICATES ARE FIR 
IMIT IS 10000 
LEVEL IS 4 
PADDING IS 20 PE 
ADDING IS 20 PER 
NAME IS SALES-R 
INVOICE-NUM 
SALE-DATE 
05 MONTH 
OS DA 
05 YEAR 
CUSTOMER-ID 
CHG-ACCT-NUM 
TOTALS 
05 AMOUNT-DUE 
05 AMOUNT-REC 
05 SALES-TAX 
NUM-ITEMS 
ITEMX 
05 QUANTITY 
05 DESCRIPTION 
05 UNIT-PRICE 
05 EXT-PRICE 



N. 
ES 














HARACTERS 
D 

IS ALTERNATE 
ST 












CUSTOMER-ID 








RCENT 
CENT 
ECORD 
PICTURE 


9<5) 




USAGE 


IS 


COMP 


-1 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


99 

99 

99 

X(5) 

X(10) 












PICTURE 
PICTURE 
PICTURE 
PICTURE 


ZC6). 
ZC6>. 
Z(6). 
99 


99 
99 
99 


USAGE 
USAGE 
USAGE 
USAGE 


IS 
IS 
IS 
IS 


COMP- 
COMP- 
COMP- 
COMP- 


-1 
-1 
-1 
-1 



OCCURS 15 TIMES 
PICTURE 9<4) 

PICTURE XC16) 
PICTURE Z(5).99 
PICTURE ZC6J.99 



6/7/8/9 Card 



vy 



Figure 6-2. Creating a Sub-Schema Library and Compiling A Sub-Schema Under the NOS OperatingJ^ystem 
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STANDARD CHARACTER SETS 



/ 



CONTROL DATA operating systems offer the following 
variations of a basic character set: 

• CDC 64-character set 



CDC 63-character set 



ASCII 64-character set 



• ASCII 63-character set 

Table A-l shows these character sets. The set in use at a 
particular installation was specified when the operating 
system was installed. 

Depending on another installation option, the system 
assumes an input deck has been punched either in 026 or in 
029 mode (regardless of the character set in use). Under 
NOS/BE, the alternate mode can be specified by a 26 or 29 
punched in columns 79 and 80 of the job statement or any 



7/8/9 card. The specified mode remains in effect through 
the end of the job unless it is reset by specification of the 
alternate mode on a subsequent 7/8/9 card. 

Under NOS, the alternate mode can be specified by a 26 or 
29 punched in columns 79 and 80 of any 6/7/9 card, as 
described for a 7/8/9 card. In addition, 026 mode can be 
specified by a card with 5/7/9 multipunched in column 1, 
and 029 mode can be specified by a card with 5/7/9 
multipunched in column 1 and a 9 punched in column 2. 

Graphic character representation appearing at a terminal 
or printer depends on the installation character set and the 
terminal type. Characters shown in the CDC Graphic 
column of table A-l are applicable to BCD terminals; 
ASCII graphic characters are applicable to ASCII-CRT and 
ASCII- TTY terminals. 

Several graphics are not common for all codes. Where 
these differences in graphics appear, assignment of 
collation positions and translations between codes must be 
made. Tables A-2 and A-3 show the CDC and ASCII 
character set collating sequences. 
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TABLE A-l. STANDARD CHARACTER SETS 



In installations using a 63-graphic set, display code 00 has no associated graphic or card code; display 
code 63 is the colon (8-2 punch). The % graphic and related card codes do not exist and translations 
yield a blank (55g). 





Display 


CDC 




ASCII 






Hollerith 


External 










Code 


Graphic 


Punch 


BCD 


Graphic 


Punch 


Code 




(octal) 




(026) 


Code 


Subset 


(029) 


(octal) 




00 f 


: (colon) ft 


8-2 


00 


: (colon) '* 


8-2 


072 




01 


A 


12-1 


61 


A 


12-1 


101 




02 


B 


12-2 


62 


B 


12-2 


102 




03 


C 


12-3 


63 


C 


12-3 


103 




04 


D 


12-4 


64 


D 


12-4 


104 




05 


E 


12-5 


65 


E 


12-5 


105 




08 


F 


12-6 


66 


F 


12-6 


106 




07 


G 


12-7 


67 


G 


12-7 


107 




10 


H 


12-8 


70 


H 


12-8 


110 




11 


1 


12-9 


71 


I 


12-9 


111 




12 


J 


11-1 


41 


J 


11-1 


112 




13 


K 


11-2 


42 


K 


11-2 


113 




14 


L 


11-3 


43 


L 


11-3 


114 




15 


M 


11-4 


44 


M 


11-4 


115 




16 


N 


11-5 


45 


N 


11-5 


116 




17 





11-6 


46 





11-6 


117 




20 


P 


11-7 


47 


P 


11-7 


120 




21 


Q 


11-8 


50 


Q 


11-8 


121 




22 


R 


11-9 


51 


R 


11-9 


122 




23 


S 


0-2 


22 


S 


0-2 


123 




24 


T 


0-3 


23 


T 


0-3 


124 




25 


U 


0-4 


24 


U 


0-4 


125 




26 


V 


0-5 


25 


V 


0-5 


126 




27 


w 


0-6 


26 


w 


OS 


127 




30 


X 


0-7 


27 


X 


0-7 


130 




31 


Y 


OS 


30 


Y 


0-8 


131 




32 


z 


0-9 


31 


z 


0-9 


132 




33 








12 








060 




34 


1 


1 


01 


1 


1 


061 




35 


2 


2 


02 


2 


2 


062 




36 


3 


3 


03 


3 


3 


063 




37 


4 


4 


04 


4 


4 


064 




40 


5 


5 


05 


5 


5 


065 




41 


6 


6 


06 


6 


6 


066 




42 


7 


7 


07 


7 


7 


067 




43 


8 


8 


10 


8 


8 


070 




44 


9 


9 


11 


9 


9 


071 




45 


+ 


12 


60 


+ 


12-8-6 


053 




46 


* 


11 


40 


# 


11 


055 




47 




11-8-4 


54 


11-8-4 


052 




50 


/ 


0-1 


21 


/ 


0-1 


057 




51 


( 


0*4 


34 


( 


12-8-5 


050 




52 


) 


12-8-4 


74 


) 


11-8-5 


051 




53 


$ 


11-8-3 


53 


$ 


1t*3 


044 




54 


= 


83 


13 


= 


8-6 


075 




55 


blank 


no punch 


20 


blank 


no punch 


040 




56 


, (comma) 


08-3 


33 


, (comma) 


04-3 


054 




57 


. (period) 


12-8-3 


73 


. (period) 


12-8-3 


056 




60 


= 


0-8-6 


36 


# 


8-3 


043 




61 


1 


8-7 


17 


C 


12-8-2 


133 




62 


> tt 


0-8-2 


32 


1 


11-8-2 


135 




63 


%tt 


8-6 


16 


%" 


0*4 


045 




64 


* 


8-4 


M 


" (quote) 


8-7 


042 


1 


65 


V 


0-8-5 


35 


(underline} 


0*5 


137 


66 


V 


11-0 


52 


i 


12*7 


041 




67 


A 


0*7 


37 


& 


12 


046 




70 


t 


11-8-5 


55 


' (apostrophe) 


8* 


047 


1 


71 


i 


11-8-6 


56 


? 


0*7 


077 


72 


< 


12-0 


72 


< 


12*4 


074 




73 


> 


1t*7 


57 


> 


0*6 


076 




74 


< 


8* 


15 


@ 


*4 


100 




75 


> 


12-8-5 


75 


\ 


0*2 


134 




76 


— 1 


12-8-6 


76 


- (circumflex) 


11*7 


136 




77 


; (semicolon) [ 12-8-7 
• 


77 


; (semicolon) 


11*6 


073 




Twelve zero bits at the end of a 60-bit woi 


d in a zero b\ 


rte record are an end-of-record mark rather than 




two CO 


Ions. 













o 
o 



'-LJ 



v.. 



'\y 



o 
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TABLE A-2. CDC CHARACTER SET COLLATING SEQUENCE 



o 



Collating 








Collating 








Sequence 


CDC 


Display 


External 


Sequence 


CDC 


Display 


External 


Decimal/Octal 


Graphic 


Code 


BCD 


Decimal/Octal 


Graphic 


Code 


BCD 


00 00 


blank 


55 


20 


32 40 


H 


10 


70 


01 01 


< 


74 


15 


33 41 


1 


11 


71 


02 02 


% 


63 t 


16 t 


34 42 


V 


66 


52 


03 03 


[ 


61 


17 


35 43 


J 


12 


41 


04 04 


— 


65 


35 


36 44 


K 


13 


42 


05 05 


= 


60 


36 


37 45 


L 


14 


43 


06 06 


A 


67 


37 


38 46 


M 


15 


44 


07 07 


f 


70 


55 


39 47 


N 


16 


45 


08 10 


J 


71 


56 


40 50 


O 


17 


46 


09 11 


> 


73' 


57 


41 51 


P 


20 


47 


10 12 


> 


75 


75 


42 52 


Q 


21 


50 


11 13 


1 


76 


76 


43 53 


R 


22 


51 


12 14 


. 


57 


73 


44 54 


] 


62 


32 


13 15 


) 


52 


74 


45 55 


S 


23 


22 


14 16 


/ 


77 


77 


46 56 


T 


24 


23 


15 17 


+ 


45 


60 


47 57 


U 


25 


24 


16 20 


$ 


53 


53 


48 60 


V 


26 


25 


17 21 


# 


47 


54 


49 61 


w 


27 


26 


18 22 


- 


46 


40 


50 62 


X 


30 


27 


19 23 


/ 


50 


21 


51 63 


Y 


31 


30 


20 24 


/ 


56 


33 


52 64 


z 


32 


31 


21 25 


( 


51 


34 


53 65 


: 


00 t 


nonef 


22 26 


= 


54 


13 


54 66 





33 


12 


23 27 


# 


64 


14 


55 67 


1 


34 


01 


24 30 


< 


72 


72 


56 70 


2 


35 


02 


25 31 


A 


01 


61 


57 71 


3 


36 


03 


26 32 


B 


02 


62 


58 72 


4 


37 


04 


27 33 


C 


03 


63 


59 73 


5 


40 


05 


28 34 


D 


04 


64 


60 74 


6 


41 


06 


29 35 


E 


05 


65 


61 75 


7 


42 


07 


30 36 


F 


06 


66 


62 76 


8 


43 


10 


31 37 


G 


07 


67 


63 77 


9 


44 


11 


'In installations using the 63-graphic set, t 


he % graphic 


does not exist. Th 


e : graphic is 


display code 63, 


External BCD code 16. 











o 
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TABLE A-3. ASCII CHARACTER SET COLLATING SEQUENCE 



o 
o 



Collating 

Sequence 

Decimal/Octal 



00 


00 


01 


01 


02 


02 


03 


03 


04 


04 


05 


05 


06 


06 


07 


07 


08 


10 


09 


11 


10 


12 


11 


13 


12 


14 


13 


15 


14 


16 


15 


17 


16 


20 


17 


21 


18 


22 


19 


23 


20 


24 


21 


25 


22 


26 


23 


27 


24 


30 


25 


31 


26 


32 


27 


33 


28 


34 


29 


35 


30 


36 


31 


37 



ASCII 
Graphic 
Subset 



blank 
! 

# 
$ 
% 
& 



/ 

1 
2 
3 
4 
5 
6 
7 
8 
9 



< 

> 
? 



Display 
Code 



55 

66 

64 

60 

53 

63t 

67 

70 

51 

52 

47 

45 

56 

46 

57 

50 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

oot 

77 
72 
54 
73 
71 



ASCII 
Code 



20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

2A 

2B 

2C 

2D 

2E 

2F 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

3A 

3B 

3C 

3D 

3E 

3F 



Collating 

Sequence 

Decimal/Octal 



32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 



40 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

57 

60 

61 

62 

63 

64 

65 

66 

67 

70 

71 

72 

73 

74 

75 

76 

77 



ASCII 

Graphic 

Subset 



@ 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 

V 

w 

X 
Y 
Z 

[ 
\ 
] 



Display 
Code 



74 

01 

02 

03 

04 

05 

06 

07 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

61 

75 

62 

76 

65 



ASCII 
Code 



40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

4A 

4B 

4C 

4D 

4E 

4F 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

5A 

5B 

5C 

5D 

5E 

5F 



'In installations using a 63- 
is display code 63. 



graphic set, the % graphic does not exist. The : graphic 



W 






'\_y 



O 
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DIAGNOSTICS 



B 



All diagnostic messages that can be issued during 
compilation of a Query Update sub-schema source program 
are listed in table 8-1. When a diagnostic message is 
printed on the source listing, it is preceded by a three-digit 
number enclosed in asterisks. The diagnostics are listed in 
order by this number. One of the following type codes is 
included for each diagnostic: 

Type Meaning 

E Error: syntax error. Compilation is not 
necessarily terminated, but a sub-schema is 
not created. 



Catastrophic: 
terminated. 



syntax error. Compilation is 



Trivial: syntax error. Compilation continues 
and a sub-schema is created. 



The sub-schema library maintenance diagnostics listed in 
table B-2 are issued after compilation during an attempt to 
update a sub-schema library. In most cases, it is necessary 
to recompile the sub-schema. 



TABLE B-l. SUB-SCHEMA COMPILATION DIAGNOSTICS 



o 






o 



Error 
Code 


Type 


Message 


Significance 


Action 


035 


E 


NO ON CALL OPTION SPECIFIED 


At least one option for the ON CALL 
clause must be specified when the 
clause is used. 


Correct or delete the 
ON CALL clause and 
resubmit job. 


036 


E 


DUPLICATE ON CALL OPTION 


An option in the ON CALL clause has 
been specified twice. 


Remove the duplicate 
entry in the ON CALL 
clause. Resubmit 
job. 


037 


T 


INTEGER-1 FOR RECORD 
CONTAINS MUST INCLUDE KEYS 


The value specified for integer-1 
should be large enough to include 
all the keys. As a default, DDL 
has computed the correct value. 


None. 


050 


E 


RELATION-NAME IS MISSING 


A RELATION-NAME clause is required 
in the Relation Division. 


Place RELATION-NAME 
clause in Relation 
Division. Resubmit 
job. 


051 


E 


JOIN MISSING 


A JOIN clause is required if a 
RELATION-NAME clause is present. 


Add JOIN clause to 
Relation Division. 
Resubmit job. 


052 


E 


EQ MISSING 


The relational operator EQ must 
appear between each pair of identi- 
fiers in JOIN clause. 


Correct error and 
resubmit job. 


053 


E 


INVALID RELATIONAL 
OPERATORS 


Relational operators include: EQ, 
NE, GT, LT, GE, and LE. 


Change illegal rela- 
tional operator to a 
legal one. Resubmit 
job. 


054 


E 


INVALID DATA NAME 


An identifier references an invalid 
data name. 


Correct error and 
resubmit job. 


055 


E 


RIGHT PARENTHESIS MISSING 


Subscripts must have a closing 
parenthesis. 


Correct error and 
resubmit job. 


056 


E 


INVALID RELATION NAME 


The first character of a relation 
name is numeric or the name is the 
same as a reserved word. 


Correct error and 
resubmit job. 
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TABLE B-l. SUB-SCHEMA COMPILATION DIAGNOSTICS (Contd) 



Error 
Code 



060 



061 



062 



068 

069 

070 

071 
072 

073 

074 
075 

076 



Type 



063 


E 


064 


E 


065 


E 


066 


E 


067 


E 



Message 



RELATION NAME LONGER THAN 
30 CHARACTERS-NAME 
TRUNCATED 

RELATION NAME NOT UNIQUE 



MAX QUALIFICATION LEVELS 
FOR DATA NAME REACHED 



ERROR IN SUBSCRIPT 
ERROR IN PARENTHESIS 
CYCLING NOT ALLOWED 



KEYWORD -DIVISION- EXPECTED, 
NOT FOUND 

DBI BELONGS TO AREA WITH 
MULTIPLE RECORDS - NOT 
ALLOWED IN RELATION 



SOURCE DBI NOT IN SAME AREA 
AS PREVIOUS TARGET DBI 



SOURCE AND TARGET DBI IN 
SAME FILE 



SOURCE AND TARGET DBI CHAR- 
ACTERISTICS MUST BE 
IDENTICAL 

DBI SIZE EXCEEDS THE 
MAXIMUM OF 255 CHARACTERS 

-ANY- ONLY LEGAL ON TARGET 
ITEM IN JOIN 



TARGET DBI WITH SUBSCRIPT 
ANY MUST BE REPEATING 
ALTERNATE KEY 



DATA NAME UNDEFINED 



MULTIPLY DEFINED/IMPROPERLY 
QUALIFIED DATA NAME 



SUBSCRIPT MUST APPEAR ON 
SUBSCRIPTABLE ITEM 



Significance 



Relation names are limited to 30 
characters; the first 30 characters 
of the declared name are used. 

The relation name must be unique 
among all relation names in the 
sub-schema. 

Qualification is made only to the 
level necessary to make the name 
unique. 

A subscript must be a positive in- 
teger constant. 

A left parenthesis is missing on 
the subscript. 

An area cannot be joined to itself 
directly or indirectly. 

The keyword DIVISION is missing or 
misspelled in the Relation Division. 

A JOIN clause identifier is in an 
area that contains more than one 
record description. Multiple 
record descriptions are not legal 
for areas joined in a relationship. 

Each JOIN clause source identifier 
(except the first) must be in the 
same area as the previous target 
identifier. 

The source identifier in a JOIN 
clause cannot be in the same area 
as the target identifier. 

Source and target identifiers in a 
JOIN clause must be identical. 



JOIN clause Identifiers are limited 
to 255 characters. 

The ANY option can be used as a 
subscript for a target identifier 
only in a JOIN clause. 

The ANY option used as a subscript 
for a target identifier in a JOIN 
clause is restricted to repeating 
alternate key fields. 

The identifier in a JOIN clause ref- 
erences an undefined data name. 

A data name is not unique. 



Only items specified with an OCCURS 
clause can have a subscript. 



Action 



None. 



Make relation name 
unique. Resubmit 
job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Qualify data name 
with a higher level 
and resubmit job. 

Correct error and 
resubmit job. 



o 
o 



v> 



w 



\_y 
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Error 
Code 



Type 



Message 



Significance 



Action 



077 

078 

080 
081 

082 

083 

084 



085 



086 


E 


087 


E 


100 


C 


101 


E 



102 
103 

104 

105 



INVALID RESTRICT CLAUSE. 
SCANNING RESUMES AT NEXT 
RELATION ENTRY 

SUBSCRIPT VALUE TOO LARGE 



TOO MANY SUBSCRIPTS 



SUBSCRIPTABLE QUALIFIER 
OMITTED 



DATA ITEM NOT IN RECORD OF 
RESTRICT 



LITERAL IS OF WRONG DATA 
TYPE 



RECORD NOT IN RELATION OR 
OUT OF ORDER 



MORE THAN ONE RESTRICT 
CLAUSE FOR THIS RECORD 



INVALID BLOCK TYPE 



INVALID RECORD TYPE 



IDENTIFICATION HEADER NOT 
FIRST CARD OF PROGRAM 

ERROR IN SUB-SCHEMA CLAUSE 



DATA-NAME NOT UNIQUE 



DATA DIVISION HEADER NOT 
SPECIFIED 



THE FOLLOWING WORD IS NOT 
VALID IN THE INDICATED 
STATEMENT LINE 

AREA NAME NOT SPECIFIED 



The construction of the RESTRICT 
clause does not conform to the 
RESTRICT clause rules. 

The value of the subscript is 
larger than the value specified in 
the OCCURS clause applying to the 
data description. 

A maximum of three subscripts can 
be specified. 

A higher level of qualification is 
needed for the subscripted data 
name. 

A data item referenced in a 
RESTRICT clause is not a defined 
item in the record. 

The literal specified in a RESTRICT 
clause is not compatible with the 
data type of the referenced data 
item. 

The record named in the RESTRICT 
clause must be within an area named 
in the Relation, and the order of 
the RESTRICT clauses must agree 
with the order of the Areas in the 
Relation definition. 

A given record can appear in only 
one RESTRICT clause for a partic- 
ular relation. 

The block type in the BLOCK TYPE 
clause is unrecognizable. 

The record type in the RECORD TYPE 
clause is unrecognizable. 

The Identification Division is 
misspelled or missing. 

The source statement defining the 
sub-schema name is missing or re- 
served word SUB-SCHEMA is mis- 
spelled or the sub-schema name is a 
reserved word. 

This data name was already used in 
the current hierarchy. 

The reserved words in the Data Di- 
vision declaration are misspelled 
or the declaration is missing. 

An item name is the same as a re- 
served word or improper coding con- 
ventions have been used. 

The expected area name was not 
found. 



Correct the RESTRICT 
clause and resubmit 
job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Qualify data name 
with higher level and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Make data name unique 
and resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Specify area name 
and resubmit job. 
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TABLE B-l. SUB-SCHEMA COMPILATION DIAGNOSTICS (Contd) 



Error 
Code 



Type 



Message 



Significance 



Action 



106 

107 
108 

109 
110 



111 


E 


112 


E 


113 


E 


114 


E 


115 


E 


116 


E 


117 


E 


118 


E 


119 


T 


120 


E 


121 


E 



FILE-LIMIT CLAUSE ILLEGAL 
WITH SEQUENTIAL FILES 



INVALID FILE ORGANIZATION 



INTEGER FOR FILE LIMIT NOT 
VALID 



COMPUTED RECORD SIZE IS 
GREATER OR LESS THAN THE 
RECORD CONTAINS SIZE, 
COMPUTED SIZE IS USED 



INTEGER FOR INDEX LEVEL NOT 
VALID 



INTEGER FOR INDEX BLOCK NOT 
VALID 



INTEGER FOR INDEX PADDING 
NOT VALID 



INTEGER FOR DATA PADDING 
NOT VALID 



INTEGER FOR NUMBER OF 
BLOCKS NOT VALID 



DATA-PADDING CLAUSE LEGAL 
FOR IS/AK FILES ONLY 

IMPLEMENTOR NAME FOR LOG 
FILE INVALID 



INTEGER FOR BLOCK CONTAINS 
NOT VALID 



INTEGER FOR RECORD CONTAINS 
NOT VALID 



COMPUTED RECORD SIZE 
GREATER THAN BLOCK SIZE, 
COMPUTED SIZE ASSUMED 



INDEX-PADDING CLAUSE LEGAL 
FOR IS FILES ONLY 

INDEX-LEVEL CLAUSE LEGAL 
FOR IS FILES ONLY 



FILE-LIMIT does not apply to 
sequential files. 



File organization reserved words 
are either missing or misspelled. 

The integer value specified in the 
FILE-LIMIT clause is not a valid 
numeric literal. 

The record size computed from the 
item definitions is larger than the 
value specified in the RECORD 
CONTAINS clause. The computed size 
replaces the specified size. 

The integer value specified in the 
INDEX-LEVEL clause is not a valid 
numeric literal. 

The integer value specified in the 
INDEX-BLOCK clause is not a valid 
numeric literal. 

The integer value specified in the 
INDEX-PADDING clause is not a valid 
numeric literal. 

The integer value specified in the 
DATA-PADDING clause is not a valid 
numeric literal. 

The integer value specified in the 
NUMBER OF BLOCKS clause is not a 
valid numeric literal. 

DATA-PADDING applies to indexed se- 
quential and actual key files only. 

The area name specified in the LOG 
clause does not conform to the 
naming conventions. 

Integer-1 and/or integer-2 value 

specified in the BLOCK CONTAINS 

clause is not a valid numeric 
literal. 

Integer-1 and/or integer-2 value 

specified in the RECORD CONTAINS 

clause is not a valid numeric 
literal. 

The record size computed from the 
item definitions is larger than the 
value specified in the BLOCK 
CONTAINS clause. The computed size 
replaces the specified size. 

INDEX-PADDING applies to indexed 
sequential files only. 

INDEX-LEVEL applies to indexed se- 
quential files only. 



Delete FILE-LIMIT 
clause and resubmit 
job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



None. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



None. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 
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Error 
Code 



Type 



Message 



Significance 



Action 



122 
123 



124 

125 



126 


E 


127 


E 


128 


E 


129 


E 


130 


E 


131 


E 


132 


E 


133 


E 


134 


E 



135 



136 



137 



138 



RECORD NAME INVALID 



SDA PROC NAME GREATER THAN 
7 CHARACTERS 



INDEX-BLOCK CLAUSE LEGAL 
FOR IS FILES ONLY 

ILLEGAL CHARACTER IN PERM 
FILE NAME 



THE NUMBER OF ON CALL 
STATEMENTS EXCEEDS 8 

INVALID KEY NAME 



ON CALL PROCEDURE NAME 
GREATER THAN 7 CHARACTERS 



CALL NOT SPECIFIED 



ON CALL PROCEDURE NAME NOT 
SPECIFIED 



NUMBER OF BLOCKS CLAUSE 
LEGAL FOR DA FILES ONLY 

LEVEL NUMBER NOT SPECIFIED 



INVALID LEVEL NUMBER 



DATA NAME OR FILLER NOT 
SPECIFIED OR RESERVED WORD 
USED 



DEPENDING ON ITEM PIC SIZE 
EXCEEDS 6 



INTEGER FOR OCCURS NOT 
SPECIFIED 



DEPENDING ON NAME NOT 
SPECIFIED 



NUMBER OF BLOCKS VALUE NOT 
BETWEEN 1 AND 16777215 



The expected record name does not 
conform to the naming conventions. 

The hashing routine procedure-name 
specified in the ORGANIZATION 
clause can only be from 1 through 7 
characters in length. The proce- 
dure name is not stored in the sub- 
schema. 

INDEX-BLOCK applies to indexed se- 
quential files only. 

Permanent file names must be 1 
through 30 alphanumeric characters; 
the first character must be 
alphabetic. 

Only one through eight conditions 
are allowed in the ON CALL clause. 

The expected key name does not con- 
form to the naming conventions. 

The procedure name specified in the 
ON CALL clause can only be from 1 
through 7 characters in length. 

The reserved word CALL is either 
missing or misspelled. 

The expected procedure name in the 
ON CALL clause is either missing or 
is the same as a reserved word. 

NUMBER OF BLOCKS applies to direct 
access files only. 

The expected level number is not a 
valid numeric literal. 

The valid range of level numbers is 
from 2 through 49. 

The expected item name either does 
not conform to the naming conven- 
tions or is the same as a reserved 

word. 

The DEPENDING ON item specified in 
the OCCURS clause must have a 
picture size of 1 through 6 
characters. 

The integer-1 value specified in 
the OCCURS clause is not a valid 
numeric literal. 

The DEPENDING ON name specified in 
the OCCURS clause does not conform 
to the naming conventions. 

NUMBER OF BLOCKS value not between 
1 and 16777215. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct procedure 
name and resubmit 
job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct item name and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct name and 
resubmit job. 



Correct error and 
resubmit job. 
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Error 
Code 



139 
140 
141 
142 
143 

144 
145 
146 

147 
148 

149 

150 

151 
152 

153 
154 

155 



Type 



E 
C 
E 
E 

E 

E 

E 
T 

E 

E 



Message 



DEPENDING ON ITEM HAS WRONG 
USAGE 

DATA NAME TABLE OVERFLOW - 
INCREASE YOUR FIELD LENGTH 

BAD LEVEL NUMBER - ITEM 
IGNORED 

NO ASSIGN CLAUSE SPECIFIED 
FOR LOG FILE 

WORD OCCURS NOT FOLLOWED BY 
AN INTEGER 



PICTURE TYPE DOES NOT COR- 
RESPOND TO USAGE TYPE 

OCCURS INTEGER GREATER THAN 
262142 

RECORD SIZE NOT EQUAL 
THROUGHOUT THE AREA, 
LARGEST ONE IS USED FOR 
MRL 

LITERAL GREATER THAN 256 



PF R VALUE INVALID 



NO PICTURE SPECIFICATION 
FOR ELEMENTARY ITEM 



INDEX PADDING PERCENT 
GREATER THAN 2 CHARACTERS, 
5 ASSUMED 



RECORD SIZE GREATER THAN 6 



VALUE OF RECORD SIZE 
GREATER THAN 262142, 512 
ASSUMED 



INDEX LEVEL SPECIFIED 
GREATER THAN 2 CHARACTERS 



INDEX LEVEL VALUE NOT 
BETWEEN 1 AND 64, 1 ASSUMED 



INDEX BLOCK SPECIFIED 
GREATER THAN 5 CHARACTERS 



Significance 



DEPENDING ON ITEM usage must be 
DISPLAY, COMPUTATIONAL or COMP-1. 

Not enough field length was speci- 
fied to complete the compilation. 

A sign was encountered in the level 
number. 

ASSIGN sub-clause missing in the 
LOG clause. 

A sign was encountered in the 
integer-1 or integer-2 value in the 
OCCURS clause. 

The item requires a numeric picture 
specification. 

The maximum value that is allowed 
in the OCCURS clause is 262142. 

All records throughout the area 
should be defined as being the same 
length. 



The length of literals is from 1 
through 256 characters. 

The R value, specifying the device 
on which a permanent file resides 
or is to reside, is invalid. 

An elementary item must be 
described with a picture 
specification. 

The allowable range of the integer 
value in the INDEX-PADDING clause 
is 1 through 99. The value is now 
defaulted to 5. 

The maximum size of the DEPENDING 
ON name specified in the RECORD 
CONTAINS clause is 6 characters. 

The value of integer-1 and/or 
integer-2 in the RECORD CONTAINS 
clause exceeds the maximum value of 
262142. It is defaulted to 512. 

The allowable range of the integer 
value in the INDEX-LEVEL clause is 
1 through 63. 

The allowable range of the integer 
value in the INDEX-LEVEL clause is 
1 through 63. The value is now 
defaulted to 1. 

The allowable range of the integer 
value in the INDEX-BLOCK clause is 
1 through 32767. 



Action 



Correct error and 
resubmit job. 

Increase field length 
and resubmit job. 

Delete sign and 
resubmit job. 

Correct error and 
resubmit job. 

Delete sign and 
resubmit job. 



Correct error and 
resubmit job. 

Correct value and 
resubmit job. 

None. 



Shorten literal and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

None. 



Shorten size and 
resubmit job. 

None. 



Correct level number 
and resubmit job. 

None. 



Correct value and 
resubmit job. 
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\ 



Error 
Code 


Type 


Message 


Significance 


Action 












156 


T 


INDEX BLOCK VALUE NOT 
BETWEEN 1 AND 32767, 512 
ASSUMED 


The allowable range of the integer 
value in the INDEX-BLOCK clause is 
1 through 32767. The value is now 
defaulted to 512. 


None. 


157 


T 


DATA PADDING PERCENT 
GREATER THAN 2 CHARACTERS, 
5 ASSUMED 


The allowable range of the integer 
value in the INDEX-PADDING clause 
is 1 through 99. The value is now 
defaulted to 5. 


None. 


158 


E 


ILLEGAL CHARACTER IN 
PICTURE 


Invalid character specified in the 
picture string. 


Correct string and 
resubmit job. 


159 


E 


REPEAT COUNT IN PARENTHESES 
EXCEEDS MAXIMUM OF 2047 


The allowable range for the repeat 
count is 1 through 2047. 


Correct count and 
resubmit job. 


160 


E 


SYNTACTICAL ERROR IN 
PICTURE 


Character placement in the picture 
string is invalid. 


Look for parenthesis 
placement. 


161 


E 


EXCESS REPEAT COUNT IN 
EDITED PICTURE 


The total allowable values for 
repeat counts in a picture string 
is 2047. The maximum number of 
characters defining the picture 
string is 30. 


Correct error and 
resubmit job. 


162 


E 


MAXIMUM OF 63 INSERTION 
CHARACTERS ALLOWED IN 
PICTURE 


The allowable number of insertion 
characters specified in a picture 
string is 1 through 63. 


Correct error and 
resubmit job. 


163 


E 


NON NUMERIC WITHIN 
PARENTHESES 


Only numeric values are allowed 
within parentheses. 


Correct error and 
resubmit job. 


164 


E 


NUMERIC ITEM GREATER THAN 
18 


The picture for a numeric item must 
not specify more than 18 digits, of 
which 14 are significant. 


Correct error and 
resubmit job. 


165 


E 


DEPENDING ON NAME IN RECORD 
CONTAINS CLAUSE IS INVALID 


The name in the RECORD CONTAINS... 
DEPENDING ON clause must be 1 
through 30 alphanumeric characters 
and embedded hyphens with at least 
one alphabetic character. 


Correct name and 
resubmit job. 


166 


E 


INTEGER IN RECORD BLOCK 
CONTAINS CLAUSE IS INVALID 


The integer-2 entry in the BLOCK 
CONTAINS clause must be a positive 
number. If characters are speci- 
fied, the maximum is 327600. 


Correct error and 
resubmit job. 


167 


T 


INTEGER VALUE IN RECORD 
BLOCK CONTAINS IS GREATER 
THAN 262142, 5120 ASSUMED 


The allowable value of integer-1 
and/or integer-2 in the BLOCK 
CONTAINS clause is 1 through 
262142. The value is now 
defaulted to 5120. 


None. 


168 


E 


USAGE CLAUSE IS INCOMPLETE 


The USAGE clause must specify the 
internal representation of a data 
item with one of 7 available 
options. 


Specify internal 
representation and 
resubmit job. 


169 


C 


EMPTY INPUT FILE 


No information is in the input 
file. 


Make corrections to 
the input file and 
resubmit job. 
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TABLE B-l. SUB-SCHEMA COMPILATION DIAGNOSTICS (Contd) 



Error 
Code 



170 



171 
173 
174 
175 
176 
177 

178 

179 
180 
181 

182 
183 

184 

185 

186 
187 



Type 



E 

E 
E 
C 



Message 



DUPLICATES INVALID FOR 
ACTUAL OR DIRECT 
ORGANIZATION OR INDEXED 
WHERE ALTERNATE KEY EXISTS 



UNRECOGNIZABLE/MISPLACED 
SOURCE STATEMENT 

PICTURE ON GROUP ITEM IS 
INVALID 

OCCURS CANNOT BE SPECIFIED 
FOR FILLER ITEMS 

HASH OVERFLOW TABLE SIZE 
EXCEEDED 

INDICATED POINT LOCATION 
GREATER THAN 31 

DEPENDING ON ITEM NOT IN 
FIXED PART OF RECORD 



KEY NAME OR DEPENDING ON 
NAME UNDEFINED 



RECORD CONTAINS DATA NAME 
NOT WITHIN RECORD 



KEY NAME NOT WITHIN 
SPECIFIED AREA 



PF ID/UN NAME INVALID 



PF PW NAME INVALID 



PF CY NUMBER INVALID 



INVALID SEQUENCE OPTION 



RECORD CONTAINS AND RECORD 
TYPE DO NOT AGREE 



BLOCK CONTAINS AND BLOCK 
TYPE DO NOT AGREE 

INCOMPATIBLE BLOCK AND 
RECORD TYPE 



Significance 



Duplicates cannot be specified for 
an actual key or direct access 
file. For an indexed sequential 
file, duplicate keys cannot be 
specified for the primary key if 
alternate keys are specified. 

Reserved word is misspelled or re- 
quired source statement is missing. 

It is invalid to specify a picture 
string on a group item. 

FILLER cannot be an occurring item. 



Not enough core was specified to 
compile sub-schema. 

The maximum length of a numeric 
item is 30 digits. 

DEPENDING ON name in the item entry 
was not defined before it was 
referenced. 

Key name in the area description 
entry or DEPENDING ON name 
specified in the item entry could 
not be found. 

DEPENDING ON name specified in the 
RECORD CONTAINS clause could not be 
found. 

Key name specified in the area de- 
scription entry could not be found 
in the subordinate records. 

The user identification following 
the ID or UN keyword does not 
conform to Query Update naming 
conventions. 

Maximum length of a permanent file 
password is 20 characters. 

The number following the CY keyword 
must be integer literal. 

The SEQUENCE clause must specify 
FORTRAN, COBOL, or a character lit- 
eral for the collating sequence. 

Character-count must be declared if 
RECORD CONTAINS DEPENDING ON and 
RECORD TYPE are specified. 

Entries in the BLOCK CONTAINS and 
BLOCK TYPE clauses are conflicting. 

If record type is CONTROL-WORD, 
block type must be INTERNAL. 



Action 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Increase field length 
and resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Check spelling. 



Check spelling. 



Check spelling. 



Correct identifica- 
tion and resubmit 
job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct the SEQUENCE 
clause and resubmit 
job. 

Correct error and 
resubmit job. 



Resolve conflict and 
resubmit. 

Correct error and 
resubmit job. 
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TABLE B-l. SUB-SCHEMA COMPILATION DIAGNOSTICS (Contd) 






Error 
Code 



189 



190 



192 



193 



Type 






o 





o 



194 

195 

196 
197 
198 

199 

200 
201 



Message 



BOTH REC CONTAINS DEP ON 
AND OCCURS DEP ON CAN'T BE 
SPECIFIED 

RECORD-TYPE MUST BE 
TRAILER-COUNT 



DEPENDING ON ITEM NOT 
EQUALLY DEFINED THROUGHOUT 
THE AREA 



DEPENDING ON ITEM POSITION 
DIFFERS WITHIN THE AREA 



TRAILER LENGTH OF A T TYPE 
RECORD IS NOT EQUALLY 
DEFINED THROUGHOUT THE AREA 



HEADER LENGTH OF A T TYPE 
RECORD IS NOT EQUALLY 
DEFINED THROUGHOUT THE AREA 



KEY SIZE IS NOT EQUALLY 
DEFINED WITHIN THE AREA 



RELATIVE KEY WORD POSITION 
IS NOT EQUALLY DEFINED 
WITHIN THE AREA 



RELATIVE KEY POSITION IN 
RKW IS NOT EQUALLY DEFINED 
WITHIN THE AREA 



BLOCK TYPE TAKES PRECEDENCE 
OVER BLOCK-CONTAINS 



SEQUENTIAL FILE MAY NOT 
HAVE ALTERNATE KEY 

FOR ACTUAL KEY FILE, KEY 
MUST BE INTEGER 



Significance 



It is illegal to define a variable 
length item within a record that 
has a DEPENDING ON specified. 

When OCCURS DEPENDING ON is 
specified, record type must be 
TRAILER -COUNT. 

When more than one record is 
specified for an area, there must 
be an item in each record whose 
relative position must correspond 
to the DEPENDING ON item. 

If an area contains more than one 
record description and one record 
description contains an item that 
occurs a number of times depending 
on a data-name, each record de- 
scription in the area must contain 
an occurring item depending on a 
data-name. In each record, this 
data-name must be in the same 
location. 

If more than one record is 
specified for an area, the trailer 
portion size of the T type record 
must be defined the same in all of 
the records. 

If more than one record is 
specified for an area, the header 
portion size of the T type record 
must be defined the same in all 
of the records. 

When more than one record is 
specified in an area, the size of 
the primary key must be the same in 
all of the records. 

When more than one record is spec- 
ified in an area, the word position 
of the primary key must be defined 
the same in all of the records. 

When more than one record is 
specified in an area, the relative 
position of the primary key must be 
defined the same in all of the 
records. 

When both BLOCK-TYPE and BLOCK 
CONTAINS are specified, BLOCK-TYPE 
takes precedence. 

Alternate keys cannot be specified 
for sequential files. 

For an actual key file, the primary 
key must be a data item described 
with a USAGE IS INTEGER clause. 



Action 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



None. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 
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TABLE B-l. SUB-SCHEMA COMPILATION DIAGNOSTICS (Contd) 



Error 
Code 



202 

203 

204 

205 
206 

207 
208 
209 

210 
211 

212 

213 

214 

215 
216 
217 

218 



Type 



E 
C 
E 

E 
E 
E 

E 

E 

E 
E 

E 



Message 



PF M NAME INVALID 



PF SN OR PN NAME INVALID 



INDEX FILE NAME INVALID 



PF PARAMETER INVALID 



LIBRARY NAME INVALID 



DUPLICATE LFN 



ONLY 64 AREAS ALLOWED IN A 
SUBSCHEMA 

INDEX FILE PF PARAMETER 
INVALID WITH AREA TEMPORARY 



LIBRARY NOT SPECIFIED 



PRIMARY KEY PREVIOUSLY 
DEFINED 

NO PRIMARY KEY SPECIFIED 
FOR AAM OR SORTED SEQ FILE 



NO KEY ALLOWED FOR THIS 
FILE 

OPEN AND CLOSE PROCEDURES 
MUST BE SPECIFIED WITH 
SEARCH 

MORE THAN ONE RECORD NAMED 
KEY-FIELD FOR SAME AREA 

RECORD NAMED KEY-FIELD MUST 
BE LAST RECORD IN AREA 

RECORD NAMED KEY-FIELD 
INVALID WITH SEQUENTIAL 
FILES 

MORE THAN ONE ITEM/GROUP 
SPECIFIED FOR RECORD NAMED 
KEY-FIELD 



Significance 



Legal M parameter values include: 
R(READ, W(WRITE), M(MODIFY), and 
RM(READMD). 

An invalid set name (SN) for NOS/BE 
or pack name (PN) for NOS has been 
specified as a permanent file 
parameter. 

An index file name is limited to 1 
through 7 characters (letters or 
digits) and must begin with a 
letter. 

Valid permanent file parameters are 
ID, PW, CY, and SN for NOS/BE, and 
UN, PW, M, and PN for NOS. 

A procedure library name is limited 
to 1 through 7 characters (letters 
or digits), must begin with a 
letter, and must be unique among 
all file names. 

Logical file names must be unique 
within a job. 

A single sub-schema is limited to 
64 areas. 

An index file associated with a 
TEMPORARY area is a local file for 
temporary use only. 

The word LIBRARY in the PROCEDURE 
LIBRARY clause is missing. 

Only one primary key can be defined 
for a file. 

An advanced access method file 
(indexed sequential, direct, actual 
key) and a sorted sequential file 
must have a primary key. 

A key cannot be specified for a 
nonsorted sequential file. 

When an ON SEARCH clause is used, 
an ON OPEN and ON CLOSE clause must 
be specified also. 

Any one area can have only one 
record named KEY-FIELD. - 

KEY-FIELD record must be the last 
record declared for any one area. 

Record named KEY-FIELD cannot be 
declared for sequential files. 



Only one item can be declared in a 
KEY-FIELD record declaration. 



Action 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Delete permanent 
file parameters. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Define primary key 
and resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 

Correct error and 
resubmit job. 

Correct error and 
resubmit job. 



Correct error and 
resubmit job. 
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TABLE B-2. SUB-SCHEMA LIBRARY MAINTENANCE DIAGNOSTICS 



o 



Message 



DID NOT LOCATE aaaaa. 
PURGE NOT POSSIBLE 



DID NOT LOCATE SUB-SCHEMA 
TO BE REPLACED — NEW 
SUB-SCHEMA HAS BEEN ADDED 



EMPTY INPUT FILE — PURGE 
NOT POSSIBLE 



EMPTY SUB-SCHEMA FILE, 
DDL ABORTED 



ILL-FORMATTED LIBRARY ~ 
NOT UPDATABLE, DDL ABORTED 



OLD SUB-SCHEMA FILE BAD, 
SUB-SCHEMA LENGTH IS ZERO. 
DDL ABORTED 



SUB-SCHEMA WITH THE SAME 
NAME AS THE NEW SUB-SCHEMA 
ALREADY EXISTS — FILE NOT 
UPDATED 



WARNING 
FILE 



EMPTY SUB-SCHEMA 



Significance 



The sub-schema name specified for 
the purge could not be located in 
the sub-schema library. 

The sub-schema to be replaced in 
the library could not be located; 
the current sub-schema has been 
added to the library. 

The names of the sub-schemas to be 
purged must be in the input file. 



While executing an audit, collect, 
or purge of a sub-schema library, 
DDL found it empty and terminated 
execution. 

The sub-schema library contains an 
error and cannot be updated. DDL 
terminates. 



During execution of the facility 
for compacting the sub-schema li- 
brary, DDL found that a sub-schema 
in the old library had a length of 
zero, which indicates an error in 
the file. 

The current sub-schema could not 
be added to the library since the 
library contains a sub-schema with 
the same name. 

The sub-schema library contains no 
sub-schemas. The sub-schemas may 
have been purged prior to this com- 
pilation. The new sub-schema is 
added to the library and is the 
only sub-schema in the library. 



Action 



Specify the correct sub- 
schema name and recompile. 



Specify the correct library 
or sub-schema name and 
recompile. 



Make appropriate correc- 
tions to the input file 
and recompile. 

Specify the correct 
library and recompile. 



Check for empty library or 
file that is not a library. 
Correct the error and re- 
compile. 

Specify the correct 
sub-schema library and 
recompile. 



Change the sub-schema name 
and recompile. 



If sub-schemas have been 
purged, create a new 
library. 






o 
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Actual Key - 

A file organization in which records are stored 
according to their key values. 



Advanced Access Methods (AAM) - 

A file manager that processes initial and extended 
files of the following organizations: indexed 
sequential, direct access, and actual key. AAM 
supports the Multiple-Index Processor. See CYBER 
Record Manager. 

Area - 

A uniquely named data base subdivision that contains 
data records; a file. 

Basic Access Methods (BAM) - 

A file manager that processes sequential and word 
addressable file organizations. See CYBER Record 
Manager. 

Begiming-of-Inf ormation (BOI) - 

CYBER Record Manager defines beginning-of- 
information as the start of the first user record in a 
file. System-supplied information, such as an index 
block or control word, does not affect 
beginning-of-information. Any label on a tape exists 
prior to beginning-of-information. 

Blocks - 

The term block has several meanings depending on 
context. On tape, a block is information between 
interrecord gaps on tape. CYBER Record Manager 
defines several blocks depending on organization, as 
shown in table C-l. 



TABLE C-l. BLOCK TYPES 



Organization 


Blocks 


Indexed sequential 
Direct access 
Actual key 
Sequential 


Data block; index block 
Home block; overflow block 
Data block 
Block type I, C, K, E 



Clause - 
I A combination of DDL elements that formulate a 

description of the data base. 

Compression - 

The process of condensing a record to reduce the 
amount of storage space required. The user can supply 
a compression routine or use a system-supplied 
routine. Contrast with Decompression. 

Control Word - 

A system-supplied word that precedes each W type 
record in storage. 
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CYBER Database Control System (CDCS) - 
The controlling module of DMS-170. 

CYBER Record Manager (CRM) - 

A generic term relating to the common products AAM 
and BAM, which run under the NOS and NOS/BE 
operating systems and allow a variety of record types, 
blocking types, and file organizations to be created 
and accessed. The execution time input/output of 
COBOL, FORTRAN, Sort/Merge 4, ALGOL, and the 
DMS-170 products is implemented through CYBER 
Record Manager. Neither the input/output of the NOS 
and NOS/BE operating systems themselves nor any of 
the system utilities such as COPY or SKIPF is 
implemented through CYBER Record Manager. All 
CYBER Record Manager file processing requests 
ultimately pass through the operating system 
input/output routines. 

Data Administrator - 

A person who defines the format and organization of 
the data base. 

Data Base - 

A systematically organized, central pool of 
information; organization is described by a sub-schema 
for Query Update. 

Data Base Procedure - 

A special-purpose routine that performs a predefined 
operation; specified in the sub-schema and initiated by 
Query Update. 



Data Description Entry - 

A source program statement 
attributes of a data item. 



that describes the 



Data Description Language (DDL) - 

The language used to structure the sub-schema. 

Data Item - 

A unit of data within a record; can be an elementary 
or group data item. 

Data Manipulation Language (DML) - 

A component of the FORTRAN Data Base Facility. 
The language consists of statements that are specified 
within a FORTRAN program to provide access to a 
data base. 

Data Name - 

A name identifying a group or elementary data item in 
the data base; can contain up to 30 letters, digits, or 
embedded hyphens, and must begin with a letter. 

Decompression - 

The process of expanding a compressed record to 
restore it to its original size. The user can supply a 
decompression routine or use a system-supplied 
routine. Contrast with Compression. 

Direct Access - 

A file organization in which records are stored 
randomly in fixed length blocks. The number of the 
block to receive a record is determined by a hashing 
operation on the record key. 



C-l 
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Direct Access File - 

In the context of CYBER Record Manager, a direct 
access file is one of the five file organizations. It is 
characterized by the system hashing of the unique key 
within each file record to distribute records randomly 
in blocks called home blocks of the file. 

In the context of NOS permanent files, a direct access 
file is a file that is accessed and modified directly, as 
contrasted with an indirect access permanent file. 



Directed Relationship - 

The logical relational structure that defines a specific 
order in which the files in a relation are traversed and 
the order in which the record occurrences are 
retrieved. The relational structure is formed by the 
join terms. 

Directive - 

A Query Update command that describes an operation 
to be performed; consists of the reserved words of the 
Query Update language in combination with 
user-supplied elements. 

Directory - 

A file that contains area and record attributes of the 
data base; created when the sub-schema is compiled; 
an object sub-schema. 

Elementary Item - 

A data item that is not subdivided into other data 
items; an elementary item that is part of a group item 
has the highest level number in the group item. 

End-of-Inf ormation (EOI) - 

CYBER Record Manager defines end-of-inf ormation in 
terms of the file organization and file residence, as 
shown in table C-2. 

Entry - 

One or more clauses that form a source program 
statement. 

File- 

A collection of records treated as a unit; an area in 
the sub-schema. 

Fixed Occurrence Data Item - 

A data item that is repeated the same number of 
times in all records; uses format 1 of the OCCURS 
clause. 

Group Item - 

A data item that is subdivided into other items; a 
collection of data items. 

Hashing - 

The transformation of record keys to produce relative 
data block addresses for records in a direct access file. 



Home Block - 

Mass storage allocated for a file with direct access 
organization at the time the file is created. 



TABLE C-2 


. END-OF- INFORMATION BOUNDARI ES 


File 


File 


Physical 


Organization 


Residence 


Position 


Sequential 


Mass storage 


After the last 
user record. 




Labeled tape 


After the last 




1n SI, I, S, 


user record and 




or L format 


before any file 
trailer labels. 




Unlabeled 


After the last 




tape in SI 


user record and 




or I format 


before any file 
trailer labels. 




Unlabeled 


Undefined. 




tape in S or 






L format 




Word 


Mass storage 


After the last 


Addressable 




word allocated 
to the file, 
which might be 
beyond the last 
user record. 


Indexed 


Mass storage 


After the record 


Sequential, 




with the highest 


Actual Key 




key value. 


Direct 


Mass storage 


After the last 


Access 




record in the 
most recently 
created overflow 
block or home 
block with the 
highest relative 


1 




address. 



Indexed Sequential - 

A file organization in which records are stored in 
ascending order by key. 



Interrelated Files - 

Those data base files that are connected logically 
through a relationship defined in the sub-schema using 
join terms. 



Join Terms - 

The common identifiers that are used to join two files 
in a relationship. 



Joining Files - 

The logical linkage of one file to another in a relation 
through the use of data items called join terms or 
identifiers. 



o 






vy 



Vy 



Identifier - 

A data-name that is referenced uniquely through a 
combination of subscripts and qualifiers. 



Key- 



One or more data items, the contents of which 
identify the type or location of a record, or the 
sequence of data. 



) 
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Keyword - 
| A reserved word that is required in a DDL source 

program clause. 



Level - 

For system-logical-records, an octal number through 
17 in the system-supplied 48-bit marker that 
terminates a short or zero-length PRU. 



Level Number - 

A number defining the structure of data within a 
record. 



Literal - 

A constant completely defined by its own identity. 



Logging - 

The recording of activity that occurs in response to all 
Query Update directives following an INVOKE 
(or USE) directive for the area. 



Logical Record - 

Under NOS, a data grouping that consists of one or 
more PRUs terminated by a short PRU or zero-length 
PRU. Equivalent to a system-logical-record under 
NOS/BE. 



Major Alternate Key - 

The leading portion of an alternate key field. 



Major Primary Key - 

The leading portion of a primary key field. 



Nested Group Item - 

A group item that is subordinate to another group item. 



Noise Record - 

Number of characters the tape drivers discard as being 
extraneous noise rather than a valid record. Value 
depends on installation settings. 



Nonrepeating Group Item - 

A sub-schema data item that contains subordinate 
data items; this group item occurs only once in each 
record; used to identify a series of related data items. 



Overflow Block - 

Mass storage the system adds to a file with direct 
access organization when records cannot be 
accommodated in the home block. 



Partition - 

CYBER Record Manager defines a partition as a 
division within a file with sequential organization. 
Generally, a partition contains several records or 
sections. Implementation of a partition boundary is 
affected by file structure and residence, as shown in 
table C-3. 

Notice that in a file with W type records, a short PRU 
of level terminates both a section and a partition. 
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TABLE C-3. PARTITION BOUNDARIES 



Device 



PRU 
device 



Record 
Type 
(RT) 



Block 

Type 

(BT) 



S or L 
format 
tape 



Any 
other 
tape 
format 



D.F.R, 
T.U.Z 



D.F.T, 
R.U.Z 



C.K.E 



Physical Boundary 



A short PRU of 
level containing 
a one-word deleted 
record pointing 
back to the last I 
block boundary, 
followed by a con- 
trol word with a 
flag indicating a 
partition boundary. 

A short PRU of 
level containing 
a control word 
with a flag indi- 
cating a partition 
boundary. 

A short PRU of 
level followed by 
a zero- length PRU 
of level 178- 

A zero- length PRU 
of level number 17s. 

A separate tape 
block containing as 
many deleted rec- 
ords of record 
length as re- 
quired to exceed 
noise record size, 
followed by a de- 
leted one-word 
record pointing 
back to the last I 
block boundary, 
followed by a con- 
trol word with a 
flag indicating a 
partition boundary. 

A separate tape 
block containing as 
many deleted rec- 
ords of record 
length as re- 
quired to exceed 
noise record size, 
followed by a con- 
trol word with a 
flag indicating a 
partition boundary. 

A tapemark. 

A tapemark. 
Undefined. 
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I Physical Record Unit (PRU) - 

Under NOS and NOS/BE, the amount of information 
transmitted by a single physical operation of a 
specified device. The size of a PRU depends on the 

1 device, as shown in table C-4. 



I 



TABLE C-4. PRL 


SIZES 


Device 


Size in Number 
of 60-Bit Words 


Mass storage (NOS and 
NOS/BE only). 


64 


Tape in SI format with 
coded data (NOS/BE only). 


128 


Tape in SI format with 
binary data. 


512 


Tape in I format (NOS 
only). 


512 


Tape in any other format. 


Undefined. 



A PRU that is not full of user data is called a short 
PRU; a PRU that has a level terminator but no user 
data is called a zero-length PRU. 



PRU Device - 

Under NOS and NOS/BE, a mass storage device or a 
tape in SI or I format, so called because records on 
these devices are written in PRUs. 



Procedure Name - 

The name assigned to operations to be performed by 
an object program. 

Projected Record Occurrence - 

The record occurrence returned by Query Update that 
is the logical concatenation of selected information 
from all record descriptions specified in the relation. 

Qualification - 

The method whereby a nonunique name can be made 
unique. If the name exists within a hierarchy of 
names, it can be made unique by mentioning one or 
more of the higher levels of the hierarchy. 

Qualifier Identifier - 

A data item that is used to restrict which record 
occurrences are to be retrieved when reading a 
relation. 



Random File - 

In the context of CYBER Record Manager, a file with 
word addressable, indexed sequential, direct access, or 
actual key organization in which individual records can 
be accessed by the values of their keys. 



In the context of the NOS or NOS/BE operating 
systems, a file with the random bit set in the file 
environment table in which individual records are 
accessed by their relative PRU numbers. 



Record - 

CYBER Record Manager defines a record as a group of 
related characters. A record or a portion thereof is 
the smallest collection of information passed between 
CYBER Record Manager and a user program. Eight 
different record types exist, as defined by the RT field 
of the file information table. 

Other parts of the operating systems and their 
products might have an additional or different 
definition of records. 



Record Occurrence - 

An actual data base record that conforms to a record 
description in the sub-schema. 



Record Qualification - 

The method used to restrict which records are to be 
returned to the user by specifying criteria that must 
be satisfied by a record occurrence. Record 
qualification is allowed only for relation reads. 



Record Type - 

The term record type can have one of several 
meanings, depending on thg context. CYBER Record 
Manager defines eight record types established by an 
RT field in the file information table. Tables output 
by the loader are classified as record types such as 
text, relocatable, or absolute, depending on the first 
few words of the tables. 

Relation - 

The logical structure formed by the joining of records 
based on common identifiers. 

Relation Occurrence - 

The logical concatenation of a record occurrence from 
each record description specified in the relation. 



Relational Data Base - 

A data base of files joined in relations through 
common data item identifiers. 

Repeating Group - 

A collection of data items that occur a number of 
times within a record; can consist of elementary 
items, group items, and vectors. 

Schema - 

A detailed description of the internal structure of the 
complete data base within the CDCS environment; 
synonymous with sub-schema for Query Update 
applications. 

Section - 

CYBER Record Manager defines a section as a division 
within a file with sequential organization. Generally, 
a section contains more than one record and is a 
division within a partition of a file. A section 
terminates with a physical representation of a section 
boundary, as shown in table C-5. 

The NOS and NOS/BE operating systems equate a 
section with a system-logical-record of level 
through 16 octal. 



Sequential - 

A file organization in which records are stored in the 
order they were generated. 



o 
o 









V_y 



o 
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TABLE C-5. SECTION BOUNDARIES 



Device 



PRU 
devi ce 



o 



1^1 



o 

o 



Record 
Type 
(RT) 



S or L 
format 
tape 



Any 
other 
tape 
format 



D.F.R, 
T.U.Z 



Block 

Type 

(BT) 



D.F.R, 
.T.U.Z 



C,K,E 



Physical 
Representation 



A deleted one-word 
record pointing 
back to the last I 
block boundary 
followed by a con- 
trol word with 
flags indicating a 
section boundary. 
At least the con- 
trol word is in 
a short PRU of 
level 0. 

A control word with 
flags indicating a 
section boundary. 
The control word 
is in a short PRU 
of level 0. 

A short PRU with a 
level less than 
17 8 . 

Undefined. 

A separate tape 
block containing 
as many deleted 
records of record 
length as re- 
quired to exceed 
noise record size, 
followed by a de- 
leted one-word 
record pointing 
back to the last I 
block boundary, 
followed by a con- 
trol word with 
flags indicating a 
section boundary. 

A separate tape 
block containing 
as many deleted 
records of record 
length as re- 
quired to exceed 
noise record size, 
followed by a con- 
trol word with 
flags indicating a 
section boundary. 

Undefined. 



Undefined. 
Undefined. 
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Short PRU - 

A PRU that does not contain as much user data as the 
PRU can hold and that is terminated by a system 
terminator with a level number. 

Under NOS, a short PRU defines EOR. 

Under NOS/BE, a short PRU defines the end of a 
system-logical-record. In the CYBER Record Manager 
context, a short PRU can have several interpretations 
depending on the record and blocking types. 

Source Identifier - 

A common identifier that is positioned on the left of a 
relational operator in a JOIN or RESTRICT clause. 

Statement - 

A source program entry that contains one or mare 
DDL clauses. 

Sub-Schema - 

A detailed description of the data base as generated 
by DDL statements. 

Sub-Schema Library - 

A permanent file containing one or more sub-schemas. 

System-Logical-Record - 

Under NOS/BE, a data grouping that consists of one or 
more PRUs terminated by a short PRU or zero-length 
PRU. These records can be transferred between 
devices without loss of structure. 

Equivalent to a logical record under NOS. 

Equivalent to a CYBER Record Manager S type record. 

Target Identifier - 

A common identifier that is positioned on the right of 
a relational operator in a JOIN or RESTRICT clause. 

Transaction - 

The activity that was imposed upon a record by a 
Query Update directive. 

Variable Occurrence Data Item - 

A data item that is repeated a specific number of 
times for each record; the number of occurrences is 
controlled by a preceding elementary data item; uses 
format 2 of the OCCURS clause. 

Vector - 

An elementary data item that is repeated a number of 
times in each record. 

W Type Record - 

One of the eight record types supported by CYBER 
Record Manager. Such records appear in storage 
preceded by a system-supplied control word. The 
existence of the control word allows files with 
sequential organization to have both partition and 
section boundaries. 

Zero-Byte Terminator - 

Twelve bits of zero in the low-order position of a word 
that marks the end of the line to be displayed at a 
terminal or printed on a line printer. The image of 
cards input through the card reader or terminal also 
has such a terminator. 

Zero-Length PRU - 

A PRU that contains system information, but no user 
data. Under CYBER Record Manager, a zero-length 
PRU of level 17 is a partition boundary. Under NOS, a 
zero-length PRU defines EOF. 
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<L 



J 






o 
o 



RESERVED WORD LIST 



c 



o 






o 
c 



ABS 


DATA 


GE 


MINS 


ACCESS 


DATA-PADDING 


GREG 


MINUS | 


ACTUAL 


DATE 


GT 


MISMATCH 


AFTER 


DECODE 




MOD | 


ALL 


DEF 




MODE 


ALLOWED 


DEFAULT 


HEADING 


MODIFIED 


ALTER 


DEFINE 


HELP 


MODIFY 1 


ALTERNATE 


DEL 


HIGH- VALUE 


MOVE 


AND 


DELETE 


HORIZ 


MR 


ANY 


DEPEND 


HORIZONTAL 




ARE 


DEPENDING 






AREA 


DESCE 




1 


AREA-NAME 


DESCENDING 


1-0 


NAME 1 


AREAS 


DESCR 


ID 


NE 1 


AS 


DESCRIBE 


IDENTIFICATION 


NEGATIVE 


ASCENDING 


DESCRIBED 


IF 


NEXT 


ASSETS 


DETAIL 


IMAGES 


NO 


ASSIGN 


DIAG 


IN 


NOT 


AT 


DIAGNOSTIC 


INDEX 


NOTE 


ATTACH 


DIRECT 


INDEX-BLOCK 


NULL- VALUE 




DIS 


INDEX-LEVEL 


NUM 




DISCARD 


INDEX-PADDING 


NUMBER 


BATCH 


DISPLAY 


INDEXED 


NUMERIC 


BEFORE 


DIVISION 


INPUT 


1 


BEYOND 


DOUB 


INS 




BLOCK 


DOUBLE 


INSERT 




BLOCK-TYPE 


DUP 


INT 


OCCURS 


BLOCKS 


DUPLICATE 


INTEGER 


OF 


BREAK 


DUPLICATES 


INTERNAL 


OFF 


BY 




INV 


ON 1 






INVOKE 


ONCE I 






IS 


OPEN 


CALL 




ITEM 


OR 


CATALOG 


EJECT 


ITEM-SIZE 


ORGANIZATION 


CENTER 


END 


ITEMS 


OS 


CENTERED 


EQ 




OVER 


CHAR 


ERASE 




OVERFLOW 


CHARACTER 


EVAL 


JOIN 




CHAR AC TER-COUNT 


EVALUATE 


JULIAN 




CHARACTERS 


EXACT-RECORDS 






CLOSE 


EXEC 




PA 


COBOL 


EXECUTE 


KEY 


PAGE 


COLUMN 


EXH 


KEY-FIELD 


PAGE-NUMBER 


COLUMNS 


EXHIBIT 




PAGE-SIZE 


COMP 


EXTRACT 




PAGES 


COMP-1 




LAND 


PAR 


COMP-2 




LAST 


PARALLEL 


COMPILE 




LE 


PART 


COMPLEX 


F 


LIBRARY 


PASS 


COMPUTATIONAL 


FALSE 


LINE 


PERCENT 


COMPUTATIONAL-1 


FETCH 


LINES 


PERF 


COMPUTATIONAL-2 


FILE 


LOCATION 


PERFORM 


CONTAINS 


FILE-LIMIT 


LOG 


PIC 


CONTROL-WORD 


FILES 


LOGICAL 


PICTURE 


COUNT 


FILLER 


LOR 


PLUS 


CRE 


FIRST 


LOW- VALUE 


PN 


CREATE 


FIX 


LT 


POINT 1 


CURRENT-ANY 


FIXED 


LXOR 


PREFACE 


CURRENT-AREA 


FIXED-LENGTH 




PREPARE 


CURRENT -DATE 


FL 




PREVIEW 


CURRENT-KEY 


FLOATING 


M 


PROCEDURE 


CURRENT-LINE 


FOOTING 


MASK 


PURGE 


CURRENT-PAGE 


FOR 


MATCH 


PW 


CURRENT-REPORT 


FORMAT 


MAX 




CURRENT-SESSION 


FORTRAN 


MAXS 




CURRENT- TIME 


FROM 


MEAN 




CY 


FULL 


MIN 


Q 
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D-l 



R 


SAME 


RAISED 


SCAN 


REC 


SCHEMA 


RECAP 


SDA 


RECAP-LINE 


SEARCH 


RECORD 


SECT 


RECORD-COUNT 


SECTIONS 


RECORD-MARK 


SELECT 


RECORD- NAME 


SEND 


RECORD- TYPE 


SEP 


RECORDING 


SEPARATOR 


RECORDS 


SEQ 


RECOVERY 


SEQUENCE 


REL 


SEQUENTIAL 


RELATION 


SESSION 


RELATION- NAME 


SESSIONS 


REM 


SETTING 


REMOVE 


SIS 


REPEAT 


SITUATE 


REPORT 


SN 


REPORTS 


SORT 


RESTRIC 


SORTED 


RET 


SPACE 


RETRIEVAL 


SPEC 


RETURN 


SPECIFY 


REW 


STOP 


REWIND 


STORE 


RM 


STRING 


RW 


SUB-SCHEMA 



SUM 


UPD 


o 


SUMMARY 


UPDATE 




SWITCH 


UPON 

USAGE 

USE 


o 


T 


USING 




TAB 






TABS 






TEMP 


VAL 




TEMPORARY 


VALUE 




TEXT 


VERIFY 




TIME 


VERSION 




TIMES 


VERT 




TITLE 


VERTICAL 




TITLE-LINE 


VETO 




TO 


VIA 




TRAILER-COUNT 






TRANS 






TRANSACTION 


WHERE 




TRUE 






TYPE 


XOR 




UN 






UNDEFINED 


YCLEPT 


/T~\ 


UNI 
UNIQUE 




l <_y 


UNIVERSAL 


ZERO 




UNTIL 


ZERO-BYTE 





"\^y 
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SUMMARY OF DDL STATEMENTS 



El 



The format specifications for all DDL statements used to define a Query Update sub-schema are summarized and listed in this | 
appendix. Detailed information for each format is referenced by page number and appears in section 4 of this manual. 



IDENTIFICATION DIVISION 



IDENTIFICATION DIVISION. 



4-1 



SUB-SCHEMA NAME IS sub-schema-name 



[ PROCEDURE LIBRARY IS library-name [permanent-file-parameters]] 



4-1 



i-1 



DATA DIVISION 



DATA DIVISION. 



4-1 



o 






O 

o 



AREA-NAME IS area-name 



E 



TEMPORARY 



•] 



permanent-file-parameters 
I INDEX IS index-file-name [permanent-file-parameters] 

BLOCK CONTAINS [integer-1 TO] integer-2 { g H ARACT ERS } 



( internal 



BLOCK-TYPE IS 



1 CHARACTER-COUN T 
RECORD-COUNT 
EXACT-RECORDS 



]] 



[" RECORD CONTAINS [integer-1 TO ] integer-2 CHARACTERS [ DEPENDING ON data-name")] 

/ CONTROL-WORD 
I FIXED-LENGTH 
I CHAR AC TER-COUNT 
RECORD-TYPE IS < TRAILER-COUNT 






RECORD-MARK 
UNDEFINED 



\ ZERO-BYTE 



LOG 



( RECORD ) ["II BEFORE 1 1") 



AFTER 



HI 



[( TRANSACTION )] 
h TRANS f\ 



ASSIGN TO permanent-file-name 



^JDISid [PWISpw...][CYIScy] [SNISsn] 
'tJNISun [PWISpw] MISm [ PN IS pn] 
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4-2 



4-2 



4-2 



4-3 | 



4-3 



4-3 



4-4 | 



E-l 



I DIRECT 
ACTUAL n°LD)l 
SEQUENTIAL [ sORTED 



KEY IS data-name DUPLICATES ARE 



[procedure-name] 



I ASCENDING \\ 
1 DESCENDING )] 




ALLOWED 



]] 



I r r< indexed n 

KEY IS ALTERNATE data-name DUPLICATES ARE ! FIRST \\ ALLOWED 



I ( NOT J J 



I 



4-5 



o 
o 



[ FILE-LIMIT IS integer] 



4-6 



[( FORTRAN n 
SEQUENCE IS { COBOL > 
(literal )J 



4-6 



\_y 



[ INDEX-LEVEL IS integer ] 



4-6 



I [ INDEX-BLOCK CONTAINS integer CHARACTERS ] 



| [ INDEX-PADDING IS integer PERCENT ] 



4-7 



4-7 



V_y 



C DATA-PADDING IS integer PERCENT ] 



4-7 



[ NUMBER OF BLOCKS IS integer] 



4-7 



ON 



OPEN 

SEARCH 

MATCH 



MISMATCH 



UPDATE 



DISPLAY 



CLOSE 
RETRIEVAL 



CALL procedure-name 



4-7 



V. 



_>• 



level number \fSST\ 



4-8 



RECORD-NAME IS record-name 



4-8 



[ifJEI 
1S£ 



PICTURE > IC . „ ... .. 1 

— • > IS picture-specification 



4-8 



o 
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[" OCCURS integer-2 TIMES 1 

[" OCCURS [integer-1 TO ] integer-Z TIMES DEPENDING ON data-name-1 1 



USAGE IS 



DISPLAY 

COMPUTATIONAL 

COMP 

COMPUTATIONAL-]. 

COMP-1 

COMPUTATIONAL-2 

COMP-2 

COMPLEX 

LOGICAL 

INTEGER 



RELATION DIVISION 

RELATION DIVISION. 

RELATION-NAME IS relation-name 

JOIN WHERE identifier-1 EQ identifier-2 
[identifier-3 EQ identifier-4] 

RESTRICT record-name 



EQ 
NE 



WHERE [NOT] [1] identifier-1 ml { Sraw" 2 } ^ 



AND 



LT 
GE 

LE 



EQ 
NE 
GT 



OR [NOT] [( 1 identifier-3 < ~ 
XOR » L ' 



GT I / identifier-4 ) r \ i 
LT / \ Hteral-2 f L2J 



GE 
LE 



4-12 



4-12 



4-13 



4-14 | 



4-14 



4-14 



4-15 



o 

c 
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DATA BASE PROCEDURES 



O 






o 
o 



I The DDL ON CALL clause permits transfer of control to 
special coding, called data base procedures, during a Query 
Update session. The procedures are written, compiled, and 
stored as permanent files by the data administrator. Exits 
to the procedures allow special processing to be performed 
on the area level (OPEN, CLOSE) and on the record level 
(SEARCH, MATCH, MISMATCH, UPDATE, DISPLAY, and 
RETRIEVAL). 

Data base procedures are relocatable binary routines. 
They can be: 

• COBOL subprograms (compiled with the subcompile 
parameter SUBM in the COBOL control statement) 

• FORTRAN subprograms 

• COMPASS subprograms (no transfer address in the 
END statement) 



LOADING OF PROCEDURES 

Query Update loads data base procedures from the 
procedure library when one is specified in the sub-schema. 
If no procedure library is specified, Query Update loads the 
procedures from local file QUEXITS if such a file exists at 
I the time of the INVOKE (or USE) or CREATE directive. If 
QUEXITS does not exist, Query Update loads the 
procedures from system library SYSMISC. 

Externals from the procedure library, if one exists, are 
satisfied first, followed in order by externals from the 
system library SYSMISC, the global library set, and the 
local library set. If a procedure for the areas to be used is 
| not located, the INVOKE (or USE) or CREATE directive is 
rejected, and the following diagnostic is issued: 

ENTRY POINT name NOT FOUND FOR AREA name 



LINKAGE AND 
COMMUNICATION 

Query Update and data base procedure communication 
under version 3.1 and later versions is handled through a 
parameter list similar to that used by CDCS. This is in 
contrast to the method employed for version 3.0 in which 
communication was handled through a common block 
named CCOMMON. Version 3.0 procedures are being 
maintained through a linkage module named QUEXIT, 
which copies the parameters into CCOMMON and performs 
integer to COMPUTATIONAL-2 conversion as necessary. 
Details regarding QUEXIT appear in the Maintaining 
Version 3.0 Procedures subsection. Since additional 
overhead is required for calls to version 3.0 procedures, it 
is recommended that all procedures be converted to use 
parameter lists. 

A parameter list consists of one-word addresses, which are 
stored right-justified with leading zeros. The entire 
parameter list is terminated by a word of zeros. 
COMPASS procedures obtain the address of the parameter 
list in register A. COBOL procedures use the Linkage 
Section and the USING clause in the PROCEDURE 
DIVISION statement to handle the parameter list. 
FORTRAN procedures use the standard subroutine linkage. 
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The parameter list is described in table F-l. The 
CCOMMON block used for version 3.0 is included for 
comparison purposes. The parameter list is identical to 
that used with CDCS procedures with two exceptions: the 
meanings of EC and RC values vary, and the third 
parameter is the directive code DIRCODE instead of an 
error code. 

TABLE F-l. PARAMETER LIST AND 
CCOMMON ORGANIZATION 



Parameter List 


CCOMMON 


Parameter 
Number 


Parameter 
Name 


Word 


Name 


1 
2 
3 

4 
5 
6 
7 
8 
9 


EC (I) 
RC (I) 
DIRCODE (I) 
FIT 

RECAREA 
RECLG (I) 
KEYAREA 
KEYP0S (I) 
KEYLG (I) 


1 

2 
3-27 

28 
29-54 

55 
56-n 


EC.RC (R) 

DIRCODE (R) 

FIT 

KEYLG (R) 

KEYAREA 

RECLG (R) 

RECAREA 


In CCOMMON, EC and RC both refer to the first 
word. 

In CCOMMON, the length of RECAREA is set by 
the first procedure loaded that declares it. 
RECAREA should be defined large enough to 
hold the longest possible record for any area 
that will be in use. 

(I) denotes INTEGER format. 

(R) denotes REAL (COMPUTATIONAL-2) format. 



Each parameter is identified as follows: 

Entry Code (EC) 

Query Update sets EC to an entry code 
(1 through 8) to represent the condition that | 
caused an exit to the procedure. Entry codes are 
detailed in the Procedure Processing subsection. 

Return Code (RC) 

The procedure sets RC to a return code 
(0 through 3) when return is to Query Update. 
Return codes are detailed in the Procedure 
Processing subsection. 
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Current Directive Code (DIRCODE) 

Query Update sets DIRCODE to a code 
(1 through 11) to indicate the current directive. 
DIRCODE values and their meanings are listed in 
table F-2. 



TABLE F-2. DIRCODE VALUES 



Query Update 
Directive 


Corresponding 
DIRCODE Value 






with USING 
or SETTING 


DISPLAY 


1 




REMOVE (or DELETE) 


2 




STORE (or INSERT) 


4 




MODIFY (or UPDATE) 


6 




END (or STOP) 


8 




EXTRACT 


9 




CREATE 


10 




OTHER 


11 


(OTHER indicates 
multiple directive 
transmissions) 



Key Position (KEYPOS) 

Query Update sets the starting character position 
(0 through 9) of the current record in KEYPOS. 



Key Length (KEYLG) 

Query Update sets the current record key length 
(in characters) left-justified in KEYLG. When a 
record is supplied by a SEARCH procedure, the 
procedure sets the current record key length in 
KEYLG. 



PROCEDURE PROCESSING 

Data base procedures are not restricted in the operations 
to be performed; however, a return code must be set in RC 
before control is returned to Query Update. 

Entry codes are established as a convenience to the 
programmer. They can be examined by a procedure to 
determine the condition causing a call to the procedure. 
Similarly, a procedure can examine the Current Directive 
Code in DIRCODE to determine the directive causing an 
entry to the procedure. 

Operations are performed within data base procedures at 
programmer option. Table F-3 lists entry codes, 
conditions, return codes, and actions subsequent to data 
base procedure processing. If an action releases an area 
and is to get the next directive, a user-submitted INVOKE 
(or USE) directive is required. 



o 






File Information Table (FIT) 

Query Update sets the 25-word file information 
table of the area in use to provide reference for 
the procedure. 



Record Area (RECAREA) 

RECAREA is a storage space that must be large 
enough to store the longest record that can be 
found in the area. Query Update stores the 
current record in RECAREA when a MATCH, 
MISMATCH, UPDATE, DISPLAY, or RETRIEVAL 
procedure is entered. A SEARCH procedure 
stores records in RECAREA for Query Update. 
An OPEN or CLOSE procedure does not use 
RECAREA. 



Record Length (RECLG) 

Query Update sets the record length (in 
characters) in RECLG. When a record is supplied 
by a SEARCH procedure, the procedure sets the 
record length in RECLG. 



Key Area (KEY AREA) 

Query Update stores the current record key in 
KEY AREA, which is in an array of up to 26 
words. When a record is supplied by a SEARCH 
procedure, the procedure stores the current 
record key in KEY AREA. 
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OPEN PROCEDURE EXIT 

The OPEN procedure exit is taken at the beginning of a 
transmission in which an area is accessed. FIT and KEYLG 
are updated to reflect the current area being opened. 

Before the OPEN procedure exit is taken, Query Update 
performs a CYBER Record Manager (CRM) open of the 
area unless a SEARCH procedure exists. If a SEARCH 
procedure exists, the OPEN procedure rather than Query 
Update must perform the actual CRM open of the 
appropriate area. 



SEARCH PROCEDURE EXIT 

The SEARCH procedure exit is taken to provide a means of 
reading and writing records that are not acceptable to 
CRM. The SEARCH procedure rather than Query Update 
accesses the area. 



The SEARCH procedure must supply records for the 
following directives: DISPLAY, REMOVE (or DELETE), 
MODIFY (or UPDATE), and EXTRACT. The directive code 
field is set to the appropriate value (refer to table F-2), 
which indicates the Query Update directive that caused the 
SEARCH exit to be taken. 



Wien returning records to Query Update, the procedure 
must set KEYLG and RECLG to the correct values and fill 
KEY AREA and RECAREA with the correct data. 
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TABLE F-3. PROCEDURE PROCESSING CODES 












Entry 
Code 



Condition 



OPEN 



SEARCH 



3 MATCH 



MISMATCH 



UPDATE 



DISPLAY 



CLOSE 



RETRIEVAL 



Return Codes 



Proceed normally. 



Procedure has 
provided record. 



Proceed normally. 



Proceed normally. 



Proceed normally. 



Proceed normally. 



Get next directive. 



Continue. 



Release area; get 
next directive. 
© © 

End of area reached; 
no more records are 
available. 



Drop the record; 
record is treated 
as if it did not 
meet qualification 
criteria. 

Accept the record; 
record is treated 
as if it did not 
meet qualification 
criteria. 

Do not alter area. 
© 



Do not display 
message. 



Terminate Query 
Update session. 

© © 
Reject record. 



© AREA CLOSED BY DATA BASE PROCEDURE message is issued. 

© CURRENT DIRECTIVE TERMINATED BY DATA BASE PROCEDURE message 

© SESSION TERMINATED BY DATA BASE PROCEDURE message is issued. 

© RECORD IGNORED BY DATA BASE PROCEDURE message is issued. 



Terminate Query 
Update session. 

CD 

No more records 
are available; 
get next direc- 
tive. © 



Get next direc- 
tive. (D 



Get next direc- 
tive. © 



Get next direc- 
tive. © 



Do not display 
message; get 
next directive. 

© 

Terminate Query 
Update session. 
© © 

Get next direc- 
tive. © 



"Terminate Query Up- 
date session. 
© 

Release area, get 
next directive; area 
will be closed and 
cannot be referenced 
until a subsequent 
INVOKE (or USE) 
statement is issued; 
if a CLOSE procedure 
is also specified for 
this area, it will be 
executed. ©@ 

Release area, get 
next directive. 

© © 



Release area, get 
next directive. 



© © 



Release area, get 
next directive. 
© © 

Release area, get 
next directive. 
© © 



Terminate Query Up- 
date session. 

© © 

Close area, get next 
directive. (T) © 



is issued. 



o 



MATCH PROCEDURE EXIT 

The MATCH procedure exit is taken when a record has 
been retrieved either by Query Update or a SEARCH 
procedure. This occurs when the DISPLAY, REMOVE (or 
DELETE), MODIFY (or UPDATE), and EXTRACT 
directives cause records to be retrieved. If the retrieval 
directive is the object of a conditional statement, the 
MATCH exit is taken only when the records meet the 
qualification criteria. If the retrieval directive is not the 
object of a conditional statement, the MATCH exit 
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is taken for every record retrieved. RECAREA, RECLG, 
and KEY AREA reflect the record retrieved. 

If the MATCH procedure directs Query Update to reject a 
record, the following message is displayed upon completion 
of the transmission: 

p FORCED q REJECTED 

The letter q represents the number of records rejected by 
the MATCH procedure. 
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MISMATCH PROCEDURE EXIT 

The MISMATCH procedure exit is taken when a record has 
been retrieved by Query Update or by a SEARCH 
procedure and the record does not qualify for the current 
F condition. RECAREA, RECLG, and KEYAREA reflect 
the record retrieved. 

If the MISMATCH procedure forces Query Update to 
accept a record, the following message is displayed upon 
completion of the transmission: 

p FORCED q REJECTED 

The letter p represents the number of records forced to be 
accepted by the MISMATCH procedure. 



UPDATE PROCEDURE EXIT 

The UPDATE procedure exit is taken when Query Update 
| receives a REMOVE, STORE, or MODFY (or DELETE, 
INSERT, or UPDATE) directive. The directive code 
reflects which condition is currently being processed. 



When a REMOVE (or DELETE) directive is involved, the 
appropriate record has been copied into RECAREA; it has 
not been deleted from the area at the time the procedure 
assumes control. 



When the directive MODIFY (or UPDATE), MOVE, or 
MODFY USING (or UPDATE USING) is involved, the 
selected record is copied and modified in RECAREA. The 
record is not rewritten to the area in use at the time that 
the procedure assumes control. 



I When the directive STORE (or INSERT) or STORE USING 
(or INSERT USING) is involved, the new record content is 
in RECAREA, but is not placed in the area in use when the 
procedure assumes control. The record in RECAREA is 
formatted with blanks and zeros or specified data for the 

I STORE (or INSERT) or STORE USING (or INSERT USING) 
directives. 



If the user specifies verification with a VETO option, the 
record placed in RECAREA has passed the VETO. The 
MOVE, REMOVE, MODIFY, or STORE (or DELETE, 
UPDATE, or INSERT) directive does not modify the area 
before an exit to a procedure. 



If both a SEARCH and an UPDATE procedure have been 
specified, the procedures rather than Query Update are 
performing all I/O. The SEARCH procedure is retrieving 
all records and the UPDATE procedure is writing and 
rewriting all records. If logging has been specified, the 
procedure must ensure that the return code reflects the 
action taken and that the FIT contains all information 
regarding record length, key length, key position, and so 
forth. 



DISPLAY PROCEDURE EXIT 

The DISPLAY procedure exit is taken when the current 
directive is DISPLAY. The exit is taken for each record. 



CLOSE PROCEDURE EXIT 

The CLOSE procedure exit is taken at the end of a 
transmission in which an area is accessed. When the 
CLOSE exit is taken, Query Update has not performed the 
CRM close of the area. 

Upon return from the CLOSE exit, Query Update performs 
the CRM close unless a SEARCH procedure has been 
specified; if the SEARCH procedure exists, the CLOSE 
procedure must perform the close of the area. 



RETRIEVAL PROCEDURE EXIT 

The RETRIEVAL procedure exit is taken after a record has 
been read by CRM but before Query Update has applied 
any qualification criteria. 

The exit enables the user to specify compression or 
decompression of records or to speed up relation processing 
by allowing Query Update to reject records during 
processing. The capability for compression or 
decompression of records is available only for extended 
indexed sequential, extended direct access, and extended 
actual key files. 



PROCEDURE RELATIONSHIPS 

The manner in which conditions relate to one another is 
illustrated in table F-4. The table indicates a series of 
typical Query Update directives for an area that has ON 
CALL procedure exits for OPEN, RETRIEVAL, MATCH, 
MISMATCH, UPDATE, DISPLAY, and CLOSE. 

TABLE F-4. PROCEDURE RELATIONSHIPS 









Query Update 
Directive Executed 


Sequence of 

Data Base Procedure 

Exits Taken 


CREATE 

STORE (or INSERT) n 
records 

DISPLAY these n 
records 

IF condition 
REMOVE (or DELETE) 
where first n records 
fail and remaining p 
records qualify 


OPEN 
CLOSE 

OPEN 

UPDATE n times 

CLOSE 

OPEN 

RETRIEVAL ) 

MATCH > n times 

DISPLAY ) 

CLOSE 

OPEN 

RETRIEVAL n+p times 

MISMATCH n times 

MATCH \ n .. e 
UPDATE i p times 

CLOSE 



<0 
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PROCEDURE INPUT/OUTPUT 

Query Update provides certain entry points to allow the 
procedure to communicate with the user or CRM. 
Parameters are passed to the entry points according to the 
standard rules governing subprogram calls as follows: 

In COBOL: 

ENTER entry point name USING parameter name list. 
IN FORTRAN: 

CALL entry point name (parameter name list). 

In COMPASS: 

SA1 List of parameter addresses, terminated by a 
word of zeros. 



QUREAD 



RJ 



: X entry point name. 



Working storage area. The area designated by this 
parameter should be large enough to hold the 
maximum number of characters the user expects 
to enter; QUREAD cannot deliver more than the 
maximum transmission length for each instance of 
the call. 

Number of characters read. This parameter is 
filled in by QUREAD to indicate the number of 
characters actually transmitted into the working 
storage area. If QUREAD returns a zero, the 
end-of-file condition was encountered and no user 
input is available. 



QUWRITE 



Storage area. QUWRITE picks up the character 
string from the area designated by this parameter 
to deliver to the user; the first character of the 
string is treated as a control character, according 
to the standard conventions: 






o 



^L*r 



o 
o 



CRM ENTRY POINTS 

Query Update supports the following entry points to the 
I CRM FORTRAN interface routines: 



OPENM 


PUT 


IFETCH 


FILEAK 


CLOSEM 


DLTE 


STOREF 


FILEDA 


GET 


REPLC 


FILEIS 


FILESQ 



Calling sequences are described in the CYBER Record 
Manager user's guides. Calls to routines that do not exist 
in the current Query Update overlay are trapped and 
diagnosed; the called entry point and the procedure most 
recently called by Query Update are identified. 

If the PUT routine is called by a data base procedure to 
process any file other than a sequential file, the file cannot 
be accessed in read-only mode. If the DLTE or REPLC 
routine is called by a data base procedure to process any 
file, the file cannot be accessed in read-only mode. 

An attempt to use CRM functions not provided by the 
supported entry points results in a large amount of CRM 
relocatable code being loaded into memory along with the 
user's data base procedures. 



QUERY UPDATE UTILITY ROUTINE 
ENTRY POINTS 

Entry points for utility routines supplied by Query Update 
include: 



QUREAD 
QUWRITE 



D.PACK QUCIN1 
D.UNPAK QUCIN2 



QUCONF 



QUREAD and QUWRITE allow the procedure to 
communicate with the terminal user (refer to the Query 
Update reference manual for background information on 
the concepts of batch or interactive mode, transmissions, 
or continuation symbols). QUREAD and QUWRITE are both 
called with two parameters, the second of which is 
described as COMP-2 in COBOL, REAL in FORTRAN, and 
normalized floating-point in COMPASS. 



blank Print on the next line. 

1 Skip to the top of the page or screen 

before printing. 

Skip one line before printing. 

Number of characters in the string. The number 
designated by this parameter includes the leading 
control character. 

QUCIN1, QUCIN2, and QUCONF are numeric conversion 
routines provided for COBOL users. D.PACK and 
D.UNPAK are alternate names for QUCIN1 and QUCONF, 
respectively, and are included for commonality with CDCS. 

QUCIN1 (D.PACK) 

QUCIN1 converts a list of integers to COBOL4 
COMPUTATIONAL-1 (unnormalized floating- 
point) format. 

QUCIN2 

QUCIN2 converts a list of integers to 
COMPUTATIONAL-2 (normalized floating-point) 
format. 

QUCONF (D.UNPAK) 

QUCONF converts a list of floating-point 
numbers to integer format. 

The result of any conversion is stored directly in the 
original data item. For example: 

ENTER QUCONF USING ABC. 

results in the contents of A, B, and C being converted from 
floating-point to integer. 

MAINTAINING VERSION 3.0 
PROCEDURES 

The QUEXIT linkage module is retained for processing data 
base procedures that were written for version 3.0. 
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QUEXIT copies parameters from the parameter list to 
common block CCOMMON before passing control to the 
procedure. Version 3.0 and later version procedures 
cannot be mixed; if any 3.0 procedures are loaded, then all 
calls to all procedures pass through QUEXIT and are 
processed as 3.0 procedure calls. 



Reference to a QUEXIT entry point forces QUEXIT to be 
loaded. The following entry points are available: 



QUOPEN 


QUPUT 


QUFETCH 


QUFAK 


QUCLOSE 


QUDLTE 


QUSTORE 


QUFDA 


QUGET 


QUREPLC 


QUFIX 


QUFSQ 


QUGETN 









SAMPLE DATA BASE PROCEDURE 

A sample data base procedure written in COBOL 5 and 
compiled under the NOS operating system is shown in 
figure F-l. The LIBGEN control statement is included to 
illustrate the storage of the procedure in a user library. 



The LIBGEN control statement specifies that the routine 
to be made a library file is found in file LGO, the default 
binary file of the COBOL program. The library is created 
in permanent file QUPROC0 with the name of the library 
being QUPROC0. 

The deck structure for an equivalent job under the NOS/BE 
operating system is as follows: 

Job Statement 
REQUEST(QUPROC0, *PF) 
COBOL5(MSB,LO=S/R) 
EDITLB(USER) 

CATALOG(QUPROC0,ID=DPB,RP=999) 
7/8/9 card 

Program, DBPROC 

7/8/9 card 

LIBRARY(QUPROC0,NEW) 

REVWND(LGO) 

ADD(»,LGO) 

FINISH 

ENDRUN. 

6/7/8/9 card 



o 
o 



/<"> 

w 
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IDENTIFICATION DIVISION. 
PROGRAM-ID. OBPRCC. 



5 








CONFIGURATION SECTICN. 




6 








SOURCE-CCMPUTER. CV6ER71*. 




7 
8 
9 








OBJECT-COMPUTER. CIZZRT*. 










DATA OIVISION. 




10 








WORKING-STORAGE SECTION. 




11 








01 t.ENGTH-1 COMP-2. 




12 








01 MSG1. 




13 








02 IBLANK1 PIC X VALUE 


IS t *. 


11* 








02 FILE-NAME PIC X(7>, 




15 








2 I8LANK2 PIC X VALUE 


IS / t. 


16 








02 PRT PIC X(25> . 




17 








01 PW PIC X(3>. 




18 








LINKAGE SECTION. 




19 








77 ENTRY-CODE PIC 9(10) COMP-1. 




20 








77 RETUKN-COCE COMP-2. 




21 








77 CIRCCOt PIC 9(10) COKP-1. 




22 








01 FILE-INFO-TABLE PIC X(07). 




23 








01 CURRENT-RtCCRC PIC X(25». 




Z<* 








01 RECORO-LEKGTH PIC 9(10) COMP-1. 




25 








01 CURRENT- KEY PIC X, 




26 








01 KEY-POS PIC 9(10) COKP-1. 




27 








01 KEY-LEf'G^ PIC 9(10 1 COMP-1. 




28 












29 








PROCEDIRE OIVISICK USIKG ENTRY-CCOt, RETURN- 


•CODE, CIRCOOE, 


30 








FILE-INFO-TAeLc, CURRENT-REC CRO, RECORD- 


■LENGTH, 


31 








CUfRENT-KEY, KEY-FOS, KEY-LENGTH. 




32 








START-1. 




33 








MOVE 3U TO LEKGTH-1. 




3<t 








MOVE FILE-INFC-TA8LE TO FILE-NAME. 




35 








MOVE CURRENT -RECORD TO PRT. 




36 








ENTER QUWR1TE USING MSG1 LENGTH-1. 




37 








MOVE TO RETCRN-COQE. 




38 








ENTER QUCOKF USING RETURN-COCE. 




39 








END- GBP- 0. 




*»0 








EXIT PROGRAM. 




AOI8GQ 


. 79/06/06.(22) SVL SN6 l*t NCS 




12. 


i*i* 


.12 


.O0L3QU. 




12. 


i*i* 


.12 


•UCCR, 


61*5, 0.0«i7KCCS. 




12. 
12. 


t*<* 
i*i* 


.12 
.12 


.USER< 

.GHAR6 


) 




E< ) 




12. 


hh 


.13 


.C060L5<MSB7lO=S/R) 




12. 


<*>* 


.23 


.0667006 OH REQUIRED, .986 CPU SECS U 




12. 


ki* 


,23 


.SEOf 


00000OB ECS USED 




12. 


t*i* 


.23 


.OEFINE<QUPROCQ/PW=,CT=PU,P = Vt> 




12. 


<*<* 


Zi* 


.LI3GE 


*J(F=LGO,P=UUPROCQ) 




12. 


i*i* 


Zt* 


. LIBRARY GENERATION COMPLETE. 




12. 


(*i* 


Z<* 


.UEAO, 


0. 0C2KUNS. 




12. 


i*i* 


Zi* 


,UtPF, 


0.013KUNS. 




12. 


ki*, 


Zi* 


.UEHS, 


2.36*tKUNS. 




12. 


(*t* 


Z>* 


.UECP, 


1.036SECS. 




12. 


i*i* 


Zi* 


.AESR, 


<w376lNT3. 




12. 


<»6, 


50 


,UCLP, 


6122, 0.256KLNS. 





Figure F-l. Sample Data Base Procedure 
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DATA BASE UTILITIES 






O 



The DDL LOG clause is used to maintain a record of user 
interaction with the data base. When this clause is included 
in a sub-schema, information vital to the total recovery or 
minor restoration of the data base is recorded in a log file. 
Logging operations for Query Update are restricted to 
disk. A permanent log file is established by the ASSIGN 
phrase in the LOG clause. 

Each area named in a sub-schema (64 maximum) can 
specify logging, and each area can have a separate log 
file. Logging can be performed for any of the four file 
organizations recognized by Query Update and CRM: 
actual key, direct access, indexed sequential, and 
sequential. Logging operations do not occur for query-only 
transmissions. Before image, after image, and transaction 
logging are performed when transmissions have the 
potential to update a file; that is, whenever a MODIFY, 
STORE, or REMOVE (or UPDATE, INSERT, or DELETE) 
directive appears in a transmission. 

Query Update updates one file at a time and concurrently 
writes the logging information directly to the log file. Log 
file entries produced by Query Update 3.1 and later 
versions are not compatible with entries produced by 
version 3.0. New log files must be established for Query 
Update 3.1 and later versions, and applications written to 
interpret the log file must be changed to recognize the new 
format. 



SYSTEM FLOW 

The data administrator assumes the major role in the series 
of programming operations that are performed to prepare 
for recovery of the data base and to call the recover and 
restore utilities. Figure G-l shows the definition, 
execution and logging, and recovery phases. 

A data base area named in the sub-schema can be selected 
for logging operations via DDL. This definition phase 
occurs prior to the execution and logging phase indicated in 
the illustration. The sub-schema directory is produced by 
the DDL compiler and holds the logging options. 

Query Update automatically attaches the log file; no 
action is required on the part of the user. During the 
execution of a transmission, Query Update updates one 
area at a time and calls the data base utility logging 
routines to write logging information directly to the log 
file. Log records are recorded on the disk log file for the 
data base area being accessed. The log file can contain 
five types of log records or entries: 

• Open 
t Close 

• Transaction 



utility, the exact status of the data base can be determined 
by employing FORM, Query Update, or a COBOL program 
to read the log file and to create a log report. The report 
can be used to decide which area or areas of the data base 
require recovery or restoration, as well as which Query 
Update operations must be retransmitted. 

Control statements are used to call the recover or restore 
utility. A backup copy of the data base, which can be 
loaded using the operating system utility for loading 
permanent files, is required for recovery. If the data base 
is to be restored, a backup copy of the data base need not 
be loaded. The restore utility works from the current state 
of the data base. 



LOG FILE STRUCTURE 

Logging is performed by the data base logging routines as 
detailed in the Data Base Utilities reference manual. 
Query Update log file structure must conform to the 
formats described in that document. The following should 
be noted for Query Update: 

• The open and close log records are generated each 
time Query Update performs an open and a close on an 
area that is being updated. 

• Word of all log record formats. Type code 9 and 
directive codes A, B, D, and N do not apply for Query 
Update. 

• \Mjrd 2 of all log record formats. User identification is 
the 7-character job name by which the job is known in 
the system dayfile. 

• Transaction log record format. Word 5 is zero filled, 
and words 6-n contain the Query Update transmission. 



INITIALIZING THE LOG FILE 

A log file is initialized through a REQUEST/REWIND/ 
CATALOG operation under NOS/BE and through a DEFINE 
operation under NOS. Figure G-2 shows the necessary 
control statements for permanent file initialization in a 
separate job. This step can be accomplished either in the 
same job sequence prior to the execution of the application 
program using the log file or in a separate job. 

One exception should be noted. If the log file is being 
defined within a Query Update program run under NOS, the 
log file must be returned to the operating system before 
the QU control statement is issued. It is recommended 
that all log files be initialized by separate job runs. 



o 
o 



• Before image 

• After image 



Backup copies of the data base can be made on a periodic 
basis using the operating system utility routine for dumping 
permanent files. Before initiating the recover or restore 
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LOG PROCESSING ERRORS 

Errors encountered by the logging routines during the 
processing of a log file are not fatal to Query Update. All 
errors are handled by the Query Update program, and error 
messages are not applicable to the user. 
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RECOVER/ RESTORE UTILITIES 

The recover and restore off-line utilities are used to 
accomplish data base recovery. The utilities are called by 
the DFRCV and DFRST control statements. The recover 
utility reads after record images from the log file and 
inserts them in a loaded backup copy of the data base. The 
restore utility reads before record images in reverse 
chronological order and replaces existing data base records. 



Detailed information regarding the utilities and the control 
statements through which they are called appears in the 
Data Base Utilities reference manual. 

The following should be noted for Query Update: 

The user-id entered in the DFRCV and DFRST control 
statements is the 7-character job name by which the 
job is known in the system dayfile. 
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NOS/BE Operating System 



Ii 



i 



CATALOG* LOGFI LE^ALELOG,ID=DBAPW=XYZ) 



REWIND(LOGFILE) 



/rEQUEST(LOGFILE,"PF) 



Job Statement 



NOS Operating System 



t 



8 /DEFINE(LOGFILE=SALELOG/PW=XYZ) 
9 



Job Statement 



Figure G-2. Permanent File Log File Initialization 
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SUMMARY OF DATA DEFINITION IN DMS-170 
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This summary includes all the clauses or statements that 
can be used in defining data items. Table H-l shows the 
schema definition required for data items of each schema 
data class and the sub-schema definitions that correspond 
to each schema data class. 

For Query Update access to schema-defined data base files 
in CYBER Record Manager (CRM) data base access mode, 
the data base must be defined in the Query Update 
sub-schema exactly as the data base is defined in the 
schema. Therefore, every data item must be defined to 
correspond in size and class to the schema definition of the 
item. 



For COBOL, FORTRAN, and Query Update access to 
schema-defined files in CYBER Database Control System 
(CDCS) data base access mode, the definintion of data 
items in the sub-schemas does not have to correspond 
exactly to the schema definintion of data items. Through 
mapping, CDCS can generate a record image conforming to 
the sub-schema format from a record in schema format, or 
can perform the conversion of data from sub-schema 
format to schema format. Detailed information about 
conversions allowed is included in the CDCS 2, the 
FORTRAN Data Base Facility, the DDL 3 volume 1, and 
the DDL 3 volume 2 reference manuals. 
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FUTURE SYSTEM MIGRATION GUIDELINES 



This appendix contains programming practices 
recommended by CDC for users of the software described 
in this manual. When possible, application programs based 
on this software should be designed and coded in 
conformance with these recommendations. 

Two forms of guidelines are given. The general guidelines 
minimize application program dependence on the specific 
characteristics of a hardware system. The feature use 
guidelines ensure the easiest migration of an application 
program to future hardware or software systems. 



ADVANCED ACCESS METHODS 

The Advanced Access Methods (AAM) offer several 
features within which choices must be made. The 
following paragraphs indicate preferred usage. 



Access Methods 

The recommended access methods are indexed sequential 
(IS), direct access (DA), and Multiple-Index Processor (MIP). 






o 



GENERAL GUIDELINES 

Good programming techniques always include the following 
practices to avoid hardware dependency: 

• Avoid programming with hardcoded constants. 
Manipulation of data should never depend on the 
occurrence of a type of data in a fixed multiple such 
as 6, 10, or 60. 



Do not manipulate data based on the binary 
representation of that data. Characters should be 
manipulated as characters, rather than as octal 
display-coded values or as 6-bit binary digits. 
Numbers should be manipulated as numeric data of a 
known type, rather than as binary patterns within a 
central memory word. 



Do not identify or classify information based on the 
location of a specific value within a specific set of 
central memory word bits. 



Record Types 

The recommended record types are either F for fixed 
length records, or W for variable length records. Record 
length for W records is indicated in the control word; the 
length must be supplied by the user in the RL FIT field on a 
put operation and is returned to the user in RL on a get 
operation. 



BASIC ACCESS METHODS 

The Basic Access Methods (BAM) offer several features 
within which choices must be made. The following 
paragraphs indicate preferred usage. 



File Organizations 

The recommended file organization is sequential (SQ). For 
files with word-addressable OVA) organization, use an 
accessing technique that can be easily modified to byte 



^t^^F 



o 



Avoid using COMPASS in application programs. 
COMPASS and other machine-dependent languages can 
complicate migration to future hardware or software 
systems. Migration is restricted by continued use of 
COMPASS for stand-alone programs, by COMPASS 
subroutines embedded in programs using higher-level 
languages, and by COMPASS owncode routines used 
with CDC standard products. COMPASS should only 
be used to create part or all of an application program 
when the function cannot be performed in a 
higher-level language or when execution efficiency is 
more important than any other consideration. 



FEATURE USE GUIDELINES 

The recommendations in the remainder of this appendix 
ensure the easiest migration of an application program for 
use on future hardware or software systems. These 
recommendations are based on known or anticipated 
changes in the hardware or software system, or comply 
with proposed new industry standards or proposed changes 
to existing industry standards. 



Block Types 

The recommended block type is C. 

Record Types 

The recommended record types are F for fixed length 
records and W for variable length records. For purely 
coded files that are to be listed, Z type records can be used. 



Block Size 

Set the maximum block length (MBL) to 640 characters for 
mass storage files and 5120 characters for tape files. 



DMS-170 

DMS-170 offers several features among which choices must 
be made. The following paragraphs indicate preferred 
usage of CDCS, DDL, and of Query Update in support of 
CDCS. 
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Multiple Record Descriptions 

Do not include multiple record descriptions on a single file. 

Repeating Groups 

Avoid the use of the OCCURS clause, repeating groups, or 
arrays within records; as an alternative, the repeating data 
can be normalized into separate records on a different 
file. If repeating data must be used, limit usage to fixed 
length groups (no OCCURS DEPENDING ON clause) and to 
simple (unnested) OCCURS clauses. 



Collating Sequence 

Use the default collating sequence or the ASCII collating 
sequence. 



REDEFINES Clause 

Use the REDEFINES clause only for alphanumeric-to- 
alphanumeric redefinitions, where the term alphanumeric 
has the meaning assigned by COBOL to data. In general, 
avoid the use of REDEFINES where use is based on a 
knowledge of the internal representation of data 
(floating-point layout, number of characters per word, and 
so forth). 



o 



Alternate Keys on Repeating Groups 

Avoid the specification of alternate keys on repeating 
groups. The data can be normalized as indicated under 
Repeating Groups. 



Query Update Syntax 

Use the new directives INVOKE, STORE, MODFY, and 
REMOVE instead of the directives USE, INSERT, 
UPDATE, and DELETE. 
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Actual key file organization 1-4, 4-3 
Advanced Access Methods (AAM) 1-3 
Alphabetic data items 4-8 
Alphanumeric data items 4-9 
Alternate keys 4-6 
Area description entry 

Definition 2-1, 4-1 

Formats 4-2 
AREA-NAME clause 4-1 



I Basic Access Methods (BAM) 1-3 
BLOCK CONTAINS clause 4-2 
BLOCK- TYPE clause 4-2 
Blocking 4-2 



I CATALOG control statement 5-2 
Character set 3-2, A-l 
Clause 

AREA-NAME 4-1 

BLOCK CONTAINS 4-2 

BLOCK-TYPE 4-2 

DATA-PADDING 4-7 

FILE-LIMIT 4-6 
| INDEX-BLOCK 4-7 

INDEX-LEVEL 4-6 
| INDEX-PADDING 4-7 

JOIN 4-14 

LOG 4-3 

NUMBER OF BLOCKS 4-7 

OCCURS 4-11 

ON CALL 4-7 
| ORGANIZATION 4-4 

PICTURE 4-8 

PROCEDURE LIBRARY 4-1 

RECORD CONTAINS 4-3 
| RECORD-NAME 4-8 

RECORD-TYPE 4-3 

RELATION-NAME 4-14 

RESTRICT 4-15 

SEQUENCE 4-6 

SUB-SCHEMA NAME 4-1 

USAGE 4-13 
CLOSE condition 4-7, F-4 
Coding 3-2 
Comment lines 3-3 
COMPLEX items 4-13 
COMPUTATIONAL items 4-13 

I Concurrency 1-3 
Continuation lines 3-3 
Control statements 

I DDL 5-1 

NOS 

DEFINE 5-2 
1 Requirements 5-2 

NOS/BE 

I CATALOG 5-2 

REQUEST 5-2 
Requirements 5-1 
| CYBER Database Control System (CDCS) 1-1 



CYBER Record Manager (CRM) 
Block types 4-3 
Function 1-1 
Record types 4-4 



Data administrator 1-1 
Data base 

Creation 5-6 

Definition 1-1 

Recovery 1-4, G-3 

Restoration 1-4, G-3 
Data base procedures 

CLOSE 4-7, F-4 

Definition 1-4 

DISPLAY 4-7, F-4 

MATCH 4-7, F-3 

MISMATCH 4-7, F-4 

OPEN 4-7, F-2 

RETRIEVAL 4-7, F-4 

SEARCH 4-7, F-2 

Summary 4-7, F-2 

UPDATE 4-7, F-4 
Data class specification 2-2, H-l 
Data description entry 

Definition 2-1 

Format 4-8 
Data Division 

Definition 2-1 

Format 4-1 
Data items 

Alphabetic 4-8 

Alphanumeric 4-9 

COMPLEX 4-13 

COMPUTATIONAL 4-13 

DISPLAY 4-13 

Fixed occurrence . 2-2 

INTEGER 4-13 

LOGICAL 4-13 

Nonrepeating 2-1 

Numeric 4-8 

Repeating 2-2 

Variable occurrence 2-2 
Data size 2-2 

DATA-PADDING clause 4-7 
DDL 

Character set 3-2 

Coding 3-2 

Control statement 5-1 

Function 1-1 

Language elements 3-1 

Literals 3-1 

Punctuation 3-2 

Reserved words 3-1, D-l 

Sequence numbers 3-2 

Statements 3-2, 4-1, E-l 

User-defined names 3-1 
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DEFINE control statement 5-2 
Diagnostics B-l 

Direct access file organization 1- 
DISPLAY condition 4-7, F-4 
DISPLAY items 4-13 
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Data 2-1, 4-1 
Identification 2-1, 4-1 
Relation 2-1,4-13 

DMS-170 1-1 
| Duplicate keys 4-5 



| Editing 4-8 
Elementary items 
Definition 2-1 
Vectors 2-2 

I Examples 6-1 
Extended AAM files 1-4, 4-4 



Field length requirements 5-5 
File organizations 

Description 1-4 

ORGANIZATION clause 4-4 
FILE-LIMIT clause 4-6 
FILLER 4-8 
Fixed occurrence data items 2-2 



Group items 

Definition 2-1 
Nesting 2-1 
Nonrepeating 2-1 
Repeating 2-2 



I Hashing 4-5 
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Identification description entry 
Identification Division 

Definition 2-1 

Format 4-1 
Identifier 3-2 
Index file 4-2 
INDEX-BLOCK clause 
INDEX-LEVEL clause 
INDEX-PADDING clause 4-7 
Indexed sequential file organization 1-4, 4-4 
Initial AAM files 4-4 
Insertion characters 4-9 
INTEGER items 4-13 



JOIN clause 4-14 



4-7 
4-6 



Key field 

Alternate 4-6 
KEY-FIELD 4-5 
Major alternate 4-6 
Major primary 4-6 
Primary 4-5 

KEY-FIELD 4-5 



I Level number assignments 2-1, 4-8 
Library, sub-schema (see Sub-schema library) 
Literals 3-1 
LOG clause 4-3 



Log file initialization G-l 
Log file structure G-l 
Logging G-l 
LOGICAL items 4-13 



Major alternate keys 4-6 
Major primary keys 4-6 
MATCH condition 4-7, F-3 
Migration guidelines 1-1 
MISMATCH condition 4-7, F-4 
Multiple-index processing 1-4, 4-6 
Multiple keys 4-6 



Nested group items 2-1 
Nonnumeric literals 3-1 
Nonrepeating data items 2-1 
NOS control statements 5-2 
NOS/BE control statements 
CATALOG 5-2 
REQUEST 5-2 
NUMBER OF BLOCKS clause 4-7 
Numeric data items 

Assumed decimal point 4-9 
Assumed decimal scaling 4-9 
Definition 4-9 
Operational sign 4-9 
Numeric literals 3-1 



OCCURS clause 4-11 
ON CALL clause 4-7 
OPEN condition 4-7, F-2 
ORGANIZATION clause 4-4 
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